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AS-1000 

o micro que cresce com voce. 




iniciando na ciencia da computacacx Seus 
recursos de programacao e sua concepcao 



CARACTERISTICAS TECNICAS: 

• 16 K bytes de membrla Inicials 

• Expanwo interna para 32 e 
4 8 K bytes 

• 8 K bytes de membrla EPROM 

• Mlcroprocessador Z-80A 

• Teclado de membrana com 
a^ao mecanlca posit iva 

• 40 teclas e 154 f undoes 

• Basic e linguagem de maquina 

• Video normal ou reverso 

• Saida para quaiquer impressora 

• Manipula ate quatro cassetes 
com geratao de arqulvo 

• Modem 

• Joystick 

• Speed File 

• Fonte de alimenta^ao 
embutlda (110/220 volts) 

• Nivel de lettura de grava^ao 
automatico 



modular, porem, permitem que ele 
o acompanhe ate as aplicacoes mais 
sofisticadas. 

O AS-IOOO ja nasce com uma biblioteca de 
milhares de programas para jogos, 
administracao domestica, aplicacoes 
comerciais e profissionais. 

O AS-1000 e fabricado com a qualidade 
ENGEBRAS e garantido p or um ana 

Entre na era da Informatica com a escolha 
certa. AS-1000, o seu micro pessoal. 

Escreva nos. sua correspondence nao ficara sem resposta. 






ENGEBRAS 

ELETRONICA E INFORMATICA LTOA. 



Rua do Russel, 450 - 3.° und^r 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4698 




De repenle, voce descobre qiie a cnse e geral 

Cnse no faturamento. porque as nolas fiscais sao emilidas rnuito 
devapar Cnse na folia de pagamento. porque as alterapoes 
salanais sao cada ve/ mais frequentes Cnse no planejamento 
Imanceiro, estrangulado pela irregulandade da cobrani^ e a 
prossao do conlas a p. m jar . 

t de erne em cnse voce descobre que chegou a flora de uma 
decisao madid vei a compra de urn Cobra 305. o rmcrocompufador 
profissional 

0 Cobra 305 poe sua empresa em ordem num apertar de dedos 
E le emife notas fiscais. conlrola o estoque, fa z o faturamento, 
|H(N|i.un.i <i cobr.mca e oenntas ,i p.ii).ir . la/ a folfi.i (fe p«i(j.imenlo, 
elabora os mapas de vendas, conlrola a amnssiio rkis vendedores. 



emife as guias para recolhimento de impostos e encargos sociais. 

T udo com muita economia de cuslo e nenhuma chance de erro. 

Como voce ve. o Cobra 305 nao faz milagres. Ele apenas permite 
que voce tenha mformagoes alualizadas o lempo lodo e possa 
lomar suas decisoes com mais seguranga 
Se voce tambem quer sair da crise pela porta da frente. contafe a 
Cobra e assista a uma demonstraeao do Cobra 305. o micro 
profissional 



nr Cobra 305 profissional 



Cobra apresenta 

SLAMA3UINA 

DEVENCERCRISES 





Em "1984", Orwell fezmuitos 
acertos no atacado e alguns erros no 
varejo. Na parte que nos toca, por 
exemplo. A informatica n§o se 
transformou em um instrument© de 
opressao ao homem conforme Orwell 
previa no seu livro "19847 justamente 
porque o acesso a ela foi franquiado - e 
continua sendo - a um numero cada 
vez maior de pessoas. Se tivesse ficado 
em poucas m§os, talvez a historia fosse 
realmente outra. 

Mas hoje, um microcomputador e 
um instrumento que ajuda voce a viver 
melhor, com informacSes e servicos 
cada vez mais rapidos e eficientes. 
Ajudando, em parte, a contradizer 
algumas das previsQes de George 
Orwell, a CompuShop - a loja 
especializada em soluc&es que tern 
tudo em materia de hardware, software 
e treinamento para melhor orientar o 
usuario - fica tranquila e mais a vontade 
para desejar um feliz 1984 para todo 
mundo. 

CompuShop 

Presente nos melhores anos. 

SAO PAULO: Rua Dr. M^rio Ferraz. 37 - Tel.: (Oil) 815-0099 

Av. Pres. Juscelino Kubitschek, 889 - Tel.: (011) 852-7700 
Telex: (01 1)36611 BYTE BR 

LONDRINA: Av. Higienbpdis, 465 - Tel.: (0432) 23-7110 

At6 31.03.84 voce ganha gratuitamente um 
exemplar do livro "1984” de George Orwell em 
todas as compras acima de Cr$ 300.000,00. 
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SUMARIO 



COPSYS — Como diz o 
ditado, “seguro morreu de 
velho”. Produzir programas 
em linguagem de maquina, 
gravados em fita cassete 
no formato SYSTEM, e o que faz 
este utilitario, escrito por 
Daniel Augusto Martins para os 
micros da linha TRS-80. 

OS PEQUENOS 
NOTAVEIS — A familia 
brasileira Sinclair em destaque: 
as caracteristicas tecnicas, os 
perifericos, o software, 
as limitagoes, a visao dos 
usuarios, enfim, um panorama 
geral sobre a linha. E mais: 
uma tabela com pregos e 
principais especificagoes de 
todos os Sinclair nacionais. 
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CASO 4 A: 
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AS INTELIGENCIA 

‘lO ARTIFICIAL — I - O que 

se passa na cabega de um 
computador quando ele se ve 
desafiado a veneer a inteligencia 
humana? Neste artigo, Antonio 
Costa e Cristina Bovo mostram 
a importancia da programagao 
de jogos para o desenvolvimento 
da Inteligencia Artificial. 

CALCULO DOS 
ESFORCOS E 
ARMADURA DE LAJES — 

Um exemplo tipico de aplicagao 
do microcomputador na area 
de Engenharia Civil. Osvaldo 
Scorcio Pereira utilizou o 
Metodo da Ruptura para 
desenvolver este programa para 
os compativeis com o TRS-80. 
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VIGAS CONTINUAS: AUTOMATIZE OS 
CALCULOS — Programa de Alexandre 
Domingues Campos. 

O ASSEMBLER, PASSO A PASSO — 
Programa de Gerson Bianco Alonso. 

ARQUIVOS PROTEGIDOS — Artigo de 
Roberto Tannenbaum. 

UM POCKET-PROGRAMA DE VIGAS 
CONTINUAS — Programa de 
Edison Waetge Junior. 

RESOLUCAO DE TRELICAS 
HIPERESTATICAS — Programa de Fermin 
Jimenez Murillo. 

O ULTIMO A SAIR APAGUE O MICRO 

— Artigo de Evandro Mascarenhas 
de Oliveira. 
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PROSYS — Programa de Esdras Avelino 
Leitao. 

PROGRAMA QUE ARQUIVA 
PROGRAMAS — Programa de Lawrence 
F. King. 
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UM METODO FACIL DE PROGRAMAR 
PROMS — Artigo de Celso Henrique 
Ribeiro e Felicio Barbosa Monteiro. 

LAJES ARMADAS EM CRUZ - Programa 
de Celso de Arruda Albuquerque. 

CURSO DE ASSEMBLER — XIII 

CALCULO DA AREA DE GLEBAS — 
Programa de Laci Mota Alves. 
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E muito estimulante quando nos 
deparamos com um produto 
bem-acabado. Entenda-se por 
isto nao somente os aspectos 
externos ou mais gerais, mas sobretudo 
um con/unto de ideias e realiza^oes - 
que vdo desde a concept do a execu^ao 
do projeto - felizes e, desde o berfo, des- 
tinadas ao sucesso, posto que o consu- 
midor pode demorar a se convencer do 
fracasso de determinado item, masacon- 
sagra^ao do bom produto e imediata. 

Na area da microinformdtica, pelo 
amplo acesso que seu baixo custo e boa 
performance propiciaram a um universo 
antes limitado, merece votos de louvor 
o pequeno equipamento de logica Sin- 
clair. 

Relatar nossa experiencia com os 
equipamentos da linha Sinclair e, de cer- 
to modo, contar a propria histdria do 
CPD da MICRO SISTEMAS. Elesforam 
os primeiros equipamentos a chegar e a 
indust ria sempre nos deu um grande 
apoio nesta area. 

Apesar disto, informa^des tecnicas e 
experiencia na uiilizaqao foram por nos 
obtidas com muito trabalho e dificulda- 
de. 

Hoje contamos com as maquinas 
mais significativas deste segmento de 



mere ado, que coexistem pacificamente 
com equipamentos ditos de "linhagem 
mais nobre". Esta discriminate do, alias, 
e uma caracteristica bem marcante dessa 
linha de equipamentos: todo nao-usua- 
rio de micros Sinclair, tende a considerar 
essas tnaquinas como brinquedos, o que 
e um equivoco pois, justamente ao 
contrdrio, esses computadores nao sdo 
nada bons para jogos. Sdo lent os, pos- 
suem poucos recursos de video e tern 
uma organizafdo de memdria que es- 
banja o espa^o da RAM. 

No entanto, esses equipamentos se- 
guirurn no Brasil a mesma trilha do 
sucesso que ja os elevara a categoria fe- 
nomeno' em outros poises. Isto porque 
possuem um prefo relativamente baixo 
e seu BASIC e de uma simplicidade 
fantastica sem, contudo, perder em ter- 
mos de potencia para seus parentes maio- 
res. 

Hoje, decorridos dois anos do lan$a- 
mento dessas maquims no mercado na- 
tional, podemos fazer um balanfo de 
como se comportam os primos tropi- 
cais do ZX 81. E esta a proposta da ma- 
teria 'Pequenos Notaveis ', veiculada nes- 
ta edifdo. Vale a leitura. 

Mas nao e so essa linha que apresen- 
ta uma dinamica estimulante. Os equi- 



pamentos da linha Apple, alem dc se 
proliferarem com velocidade ate qua, 
tiondvel, refletem a busca de seus fa- 
bricantes por um ponto de matura^ao. 
Ainda no mes passado, um dos mais des- 
tacados fabric antes da area reuniu, com 
o apoio de uma cadeia de lojas carioca, 
usuarios e imprensa especializada para 
um debate sobre as carencias e recla- 
tnaqoes do mercado. 

Uma boa iniciativa que nada tern de 
condescendente ou humanitaria. £ uma 
estrategia comercial das mais sabias, 
uma vez que somente at raves do ques- 
tionamento e trabalho de seus pontos fra- 
cos os fabricates conseguirao ter suces- 
so em passar numa peneira ja bastante 
congestionada, onde se engalftnham 
quinze modelos “compativeis ” com a 
referida ma$d. A entrada da traditional 
empresa CCE no mercado de fabricafao 
de Apple (veja na se$ao Bits) demons tra 
que ja cada vez mais se comprime o 
espa^o para amadorismos. A triagem co- 
mefou. 
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• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 
• INFT PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM II 
• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8088 CARD 
■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MICROCRAFT MICROCOMPUTADORES LTDA. 
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FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 



RIIMGO R 470 CHEGOU A CIDADE. 
OS OUTROS MICROS QUE SE CUIDEM 




Promog^odeianpamento Cf$ 341.000,00* 






0 microcomputador Rmgo R-470 6, disparado, o melhor em sua categoria E mais rbpido na execugSo de programas, oferece amplas possibilidades de 
expansao e e o umco micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI • Secretaria Especial de Informbtica. 

Um verdadeiro herbi nacional. 

Vocb pode contar com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, atravbs de vbrios jogos disponiveis em 
canucnos ou fitas. 

Alibs, cartucho 6 o que nSo falta para o Ringo. Ele 6 compativel com todos os programas do famoso Sinclair e possui equipamentos perifbricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tao profissional por estas redondezas. 



CARACTERiSTICAS TECNICAS: 

• Linguagem Basic e cddigos de mAquina 2-80 

• 8 KBytes ROM expandivel para 16 K Bytes 

• 16 KBytes RAM expandivel para 48 K Bytes 

• UtllizAvel em qualquer TV P4B ou cores 

• Conector para Joystick (jogos) 

• Teclado tipo QWERTY com 49 teclas e 155 fungtes • tecias de edigAo 
(movimentagAo de cursor e corregAo) com repetigAo autemAtica 

• Exclusiva tecla de inverse de video 

• Tela com 24 Imhas de 32 colunas para texto 



• ResolugAo grkfica 64 x 4'. pixels (umdade grtfica), podendo alingir uma 
matriz de 256 x 1 92 quando utilizado com cartuchos 

• CAIculos aritmAticos, fungtos tngonomAtrtcas, logaritrmcas e Idgicas 

• Cartuchos 'Instant Soft" (programas aplicativos em ROM ■ exclusivo) 

• Velocidade de gravagAo em fita cassete 2.400 BPS 

EXPANSOES: 

• Gravador de EPROM para gravar. editar e copiar programas em cartucho 

• Interlace para impressora ou mAquina de escrever elAtrica 
•Sintetizadordesons 

• MOOEM (ComunicagAo teletonica - 1 200 Bauds) 

• Pr»CO »u|*ilo a altarafto 



A venda nas lojas especializadas em micros, 
foto-video-som e grandes magazines. 

NSo encontrando o Ringo nestes locais, ligue para 
21 7.8400 (SP) ou (01 1) 800.8441 e 800.8442 (Outras 
localidades do Brasil). DDO gratuito. 

RINGO 

O micro que aceita desalios. 

Ritas do Brasil Ltda. • DivisSo InformAtica 
Telex (01 1)34673 Rita BR 




Enxadnsta expenente. Luciano Nilo de An 
drade jd escreveu para os /ornais "Cor ret o da 
Manhi". " Data News" e "Ultima Hora" e pa 
ra a revista " Fatos & Fotos". Luciano t econo 
mista. trabalhando no Mtmstino da Fazenda, 
no Rio de Janeiro. As opimSes e comen tinos 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com 
putadores. estarao sempre presentes em 
MICRO SISTEMAS 



Grand-Master, a maravilha do ano 



N o ultimo trimestre de 1983, sur- 
giu nos mercados norte-america- 
no e europeu um sensacional mi- 
cro, o Grand -Master. Seu in6dito dispo- 
sitivo magn6tico permite mover suas 
pepas magneticamente! 

Adeus d mapada de arrumar as pepas 
no infcio de cada partida! Adeus, tam- 
Wm, d necessidade de mover as pepas na 
vez do micro fazer a jogada (alias, a exe- 
cupao dessa tarefa manual sempre teve o 
efeito de desviar a atenpao do jogador 
do desenrolar da partida). 

Munido com seus 12 nfveis de forpa, 
o novo micro nao humilhara o ego de 
seus opositores humanos. Ele 6 jogador 
condescendente e paciente. Deixa voltar 
as pepas e ainda opina sobre qual a me- 
Ihor jogada quando interrrogado. 

Acima de tudo, ele tern uma virtude 
muito importante, ds vezes esquecida 
por alguns jogadores: a de nao fazer ges- 
tos atabalhoados com as pepas, nao 
tamborilar com os dedos ou pepas na 
mesa, etc., com o intuito de distrair o 
advers$rio. Por sua vez, 6 condipao ne- 
cess^ria para jogar com ele que seus 
adversirios movam as pepas com cuida- 
do. Enfim, 6 um gentleman que exige re- 
ciprocidade. 

ELITE A/S: CAMPEAO MUNDIAL 

0 Elite A/S, fabricado pela Fidelity 
Electronics, venceu o III Campeonato 
Mundial de Micros (modelos comerciali- 
zados) realizado em Budapeste, Hungria, 
no perfodo de 13 a 19 de outubro de 
1983. Desconhece-se at£ agora que mar- 
cas co m pet i ram e demais informapoes 
pertinentes: 

Com este resultado, a Fidelity recu- 
perou a primazia perdida no ano passa- 
do para o Constelation, face aos resulta- 
dos por este obtidos no torneio aberto 
dosE.U.A.em 1982. 

Anteriormente, a Fidelity havia ga- 
nho o Champion Sensory Challenger, o I 

MICRO SISTEMAS, fevereiro/84 



Campeonato Mundial realizado em Lon- 
dres, em 1980. 0 II Campeonato Mun- 
dial, a Fidelity venceu com o modelo 
Prestige em Travemunde, Alemanha, em 
1981. 

Os tres primeiros colocados no tor- 
neio de Budapeste estao convidados a 
participar do campeonato mundial de 
computadores (macros) a ser realizado 
em Nova lorque, no final de outubro. 

G. Game Machine (Steinitz) x Elite A/S 

Nfvel 2 — 15 segs. para cada jogada 
Rio, dezembro de 1983 

1 - P4R P4BD; 2 — C3BR P3R; 3- 
C3BD P4D; 4 - PxP PxP; 5 - P4D 
PxP; 6 - CxP C3BD; 7 — B5CD CR-2R; 
8 — B5C P3B; 9 - B4BR P3TD; 10 - 
B2R C3C, 11 - CxC PxC; 12 - B3R 
T1CD; 13 -P3CD B5CD; 14 - D4D (?). 
Perdem uma pepa. Era necessirio jogar 
14 - B2D. 14 - . . . P4B; 15 - D2D (?). 
Novo erro grave. 15 — . . . P5D; 16 — 
BxPD PxB; 17 - B3B BxC; 18 - DxB 
D2R+; 19 - R2D PxD+; 20 - RxP 



D4R+; 21 - R4B B3R+; 22 — B5D e o 
Elite anunciou mate em quatro jogadas. 
22 - . . . DxB+; 23 - R3B D4R+; 24 - 
R2D DxT++. As brancas gastaram 6 
min. e 43 segs., e as pretas 5 min. e 24 
segs. 

Elite A/S x G. Game Machine (Steinitz) 
Nfvel 1—5 segs. para cada jogada 
Rio, dezembro de 1983 

1 - P4R P4BD; 2 - C3BR C3BD; 
3 - P4D PxP; 4 - CxP P3R; 5 - C3BD 
P3TD; 6 - P3CR B5C; 7 - CxC BxC+; 
8 — PxB PCxC ( ? ). Jogada que permite 
a incursao da dama branca com efeito 
paralisante sobre o jogo das pretas. 0 
indicado era 8 — . . . PDxC, preparando- 
se para a fase final que Ihes 6 favor£vel 
por terem melhor cadeia de pedes, 9 — 
D6D! C3B; 10 - B3D B2C; 11 - T1CD 
T1CD; 12 - B4BR P3TR; 13 - 
DxT DxD; 14 - BxD BIB; 15 - B6D 
P4TD. 0 Elite anuncia mate em trSs. 
17 - T8C RID; 18 - B6T CxP; 19 - 
TxB++. 



R. Szmetan x Gheorghiu 
Bienne, 1982 


PROBLEMAS 


Corrigan x Browne 
Paris, 1980 
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Diagrama A - As brancas 
jo gam e ganham. 
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Diagrama B - As pretas jo- 
gam e ganham. As brancas 
pensam deter o mate de- 
pots de C6B+ com BxC se- 
guulo de D4R. Certo ou 
errado? 
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DIAGRAMAA 




DIAGRAMA B 
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O sorteado deste mAs, qua receber* 
gratuitamente umi assinatura de um ano 
de MICRO SISTEMAS. A RogArio G. 
Ferraro, de Sao Paulo. 



MAXXI COM COR 



Apbs ter lido a carta da Polymax enviada 
por V. Sa., constatei que o mesmo aju*te re- 
ferenciado na carta me havia lido informado 
pels Polymax por telefone em consulta efe- 
tuada tempos atrAs. 

Ap6s a abertura da parte superior do 
Maxxi, notei o seguinte: 

1 . Estava conectado apenas um terminal do 
resistor de 1 K na placa principal e o outro 
ligado a um fio que vai para a parte de baixo 
da placa principal. Obs.: liguei os dois termi* 
nais do resistor na placa. 

2. O capacitor variAvel, referenciado no 
item 7 da carta, encontrava-se um pouco da- 
nificado. Efetuei ajustes mas nSo saiu cor. 
Troquei este capacitor por um novo e 
efetuei novamente ajustes, onde verifiquei o 
aparecimento das cores: verde, azul e suas 
derivadas no sistema Pal-M, e verde, azul, 
vermelha e suas derivadas no sistema NTSC. 
Concluf que o problema residia no defeito 
do capacitor e na ligapao do resistor. 

ConvAm ressaltar que quando adquiri o 
microcomputador e observei o problema, eu 
o devolvi para a loja, que ficou com ele cer- 
ca de uma semana “tentando reparA-lo". 
Creio que a loja, na tentative de sanar o pro- 
blema, tenha danificado o capacitor e nSo 
tenha ligado o resistor de 1 K conforme de- 
veria, ou entSo o capacitor tenha se danifi- 
cado no transporte. 

A troca do capacitor, conforme citei, foi 
feita ap6s o recebimento de sua carta. Havia 
notado um pequeno dano no capacitor apbs 
receber o micro da loja, porAm nSo o tro- 
quei antes porque pensei que isto nffo iria 
alterar suas caracterfsticas. 

Considerando o problema ocorrido, creio 
que seria interessante a Polymax ter nesta ci- 
dade um representante com capacitapao tAc- 
nica para resolver este tipo de problema, 
pois hA, aqui em Campo Grande, outras 
pessoas que possuem este tipo de microcom- 
putador. 

Nabor dos Santos 
Campo Grande - MS 

Agradecemos por nos ter notificado so- 
bre o andamento do seu problema, e fica- 
mos contentes em saber que pudemos ajudar 
a resolvA-lo. Vamos torcer para que a Poly- 
max atenda seu pedido e coloque represen- 
tap ao tAcnica em sua cidade. 



SICOM 



Quando se interrompe e se reinicia a 
execupao do programa SICOM da Micro- 
Soft, perdem-se dois bytes da membria livre. 
Por que e como isso acontece? £ interessan- 
te a interruppao com o objetivo de modifi- 
car o lay-out dos menus para adaptA-los a 
aplicapoes especfficas, e tambAm para corri- 
gir um erro elementar desse programa que, 
sob todos os outros aspectos, A excelente. 

O menu secundArio apresentado ap6s o 
comando "0" do menu principal (insira) so- 






licita os dados na seguinte ordem: N-A-l-T 
(“nome", "enderepo", "cbdigos uteis" e 
"outro texto"). No entanto, os menus se- 
cundArios a presented os apds os coma nd os 
*V (altere) e '3' (busque) solicit am os da- 
dos na ordem N-A-T-l e, o que A pior, cor- 
respondendo a "nome", "enderepo", "tex- 
to" e "interesse". £ um erro de facflima cor- 
repio mas, se nSo for corrigido, torna o pro- 
grama "torto" e menos agradAvel de utilizer. 
Carlos Malferrari 
Sao Paulo - SP 

Remetemos as suas indagapdes para a 
Multi soft, ex-MicroSoft, a asta nos respon- 
dau o seguinte: 

"Com referAncia A carta de vosso leitor, 
temos a informer qua o problema apresenta- 
do refere-se A caracterfstice de operapao do 
BASIC do computador. A diferenp* de dois 
bytes deve-se A forma como foi interrompi- 
do e reiniciado o programa. Quando, no 
SICOM, A apresentado o menu, o programa 
esti em uma sub-rotina, o que acrescenta 
dois bytes ao stack; se a tecla BREAK for 
pressionada e o retorno A operapao for feito 
por GOTO, a membria permanece acre sc ids. 
Uma solupao para recuperar estes dois bytes 
A retornar A execupao atravAs da instrupao 
RETURN, entrando "9” em seguida para 
obter novamente o menu." 

Paulo Rodrigues Lauand 
Diretor da MuhiSoft 



ESCLARECIMENTO 



Com relap&o A matAria publicada em MS 
n? 27 (dezembro de 83), intitulada "Lojas 
de microcomputadores", temos a esdarecer 
que a loja Microshop — ComArcio de Apare- 
Ihos Eletrdnicos Ltda., estabelecida em Mi- 
nas Gerais, nAo tern nenhum vfnculo com a 
Microshop Microcomputadores Ltda., nossa 
empresa situada em SSo Paulo. 

Max Ribeiro - Microshop Microcomputado- 
res Ltda. 

ELETRONICA NA HP 

Gostaria de esclarecer alguns pontos a 
a respeito do meu artigo "Eletrdnica na HP- 
41C" (publicado em MS n9 22) ao leitor 
Nelson M. da Silva, que muito prestativa- 
mente sugeriu modificapoes no programa, na 
Sepao Cartas de MS n9 25. Gostaria de in- 
forma' ao amigo leitor que as modificapoes 
por ele sugeridas coincidentemente fizeram 
parte do programa quando de sua concep- 
pao. cabendo entao a mim esclarecer por 
que achei melhor modificA-lo tendo em vista 
sua divulgapao. 

O fato A que os registradores 00 a 04 tAm 
que ser zerados entre uma operapSo e outra, 
senSo a mAquina pode fazer uso, numa atual 
operapao, de um dado da conta anterior. As 
modificapbes sugeridas ficam assim invalida- 
das. por duas razdes: a primeira A que dei- 
xam de cumprir a sua funpao precipua, pois 
estao localizadas em um ponto onde serio 
executadas uma iinica vez, e nao antes de ca- 
da operapao, e a segunda A que elas utilizam 
dois registradores a mais de membria em re- 
la pSo A sugestao do artigo, que A a de usu- 
fruir a praticidade da funpao ASSIGN da 
mAquina. 

Reconhepo que talvez este item especffi- 
co tenha sido um tanto "imposto" no artigo 
sem maiores explicapoes, e me coloco A dis- 
posipao do amigo leitor para eventuais escla- 
recimentos, nSo deixando, ainda, de agrade- 
cer a sua elogiosa intervenpao. 

Pedro Ricardo Drummond 
Sao Paulo-SP 







MS AGRADECE 



Quero parabenizA-los pelo excelente nf- 
vel da revista MICRO SISTEMAS, que 
muito me tern auxiliado, principalmente em 
minhas atividades estudantis. A cada niime- 
ro da revista fico mais surpreso com a quan- 
tidade de informapbes que consigo reter dos 
preciosos artigos publicados. 

Leio a revista de ponta a ponta, e as 
Sepbes que mais aprecio sSo: Dicas, Sidra, 
matArias tAcnicas, programas em geral e MS 
Responde. Com tudo isso, estou aprendendo 
e aproveitando ao mAximo. 

Marcos Teixeira 
Americana — SP 

Muito me agradou ver MS publicar o 
artigo "O micro entre os astros do zodfaco", 
de autoria de Luiz Roberto Barboza de Oli- 
veira. Como A citado no artigo, a Astrologia 
vem ganhando cada vez mais espapo em nos- 
sa vida diAria (. . .), nao a Astrologia folclbri- 
ca baseada no signo solar, mas sim a cientf- 
fica, que utilize cAlculos exatos a partir do 
horirio e local de nascimento. 

(...) Com rapidez de cAlculo, 6tima pre- 
cisSo e confiabilidade o computador vem, 
cada vez mais. entrando no cotidiano do as- 
trblogo. ParabAns, MS. 

Alexandre Fiicher 
Sao Paulo - SP 



C 



cAlculo de vigas 




Gostaria que me dessem informapbes 
mais completas sobre o programa "CAlculo 
de vigas continues para a HP-41 CV", publi- 
cado em MS n9 20, do autor Claudio Luiz 
Curotto. 

Luiz Alberto Silva 
Niterbi — RJ 

Remetemos sua cane para o autor do 
artigo, publicado na Sepao Conversio de MS 
n? 20 (aliAs, o professor ClAudio Curotto 
tambAm A o autor do artigo que originou a 
conversio e que saiu em MS n9 14 com o 
tftulo "CAlculo de vigas contfnuas na Tl- 
59"). Ele nos respondeu o seguinte: 

"Recebi algumas cartas sobre estes arti- 
gos (para a TI-59 e para a HP-41CV) e vou 
tentar re ponder a todas: 

Com relap io ao programa para a TI-59, 
esae programa vem sendo usado desde 1979 
sem apresentar nenhum problema. O artigo 
e a listagem publicados em MS estao corre- 
tos. Assim, qualquer problema que esteja 
ocorrendo deve-se a erros de impostapao do 
programa ou a p rob lamas com calculadora. 
O erro mais comum A a troca da tecla f 
(cbdigo 55) pel* tecla + (cbdigo 85). Esse er- 
ro pode ser evitado conferindo-se o progra- 
ma pelo cbdigo das teclas. 

Quanto ao programa publicado em MS 
n9 20 para a HP-41CV, tambAm vem sendc 
usado hA quase dois anos sem apresentar 
nenhum problema. O artigo e a listagem pu- 
blicados em MS estio corretos, e nao ser por 
um erro insignif icante de impressio. Esse erro 
estA na lista dos resultados: em vez de 
Qe 4,526 como saiu impresso, o resultado 
cor re to A Qe 4,528. I magi no que esse erro 
nio tenha suscitado dCividas a quern o cons- 
tatou. 

Acredito que dois fatos devem estar 
criando problems* a quern vem tentando 
utilizar o programa: o primeiro A relativo A 
notapio utilizada por mim na representapio 
de cadeias de caracteres "ALPHA", e o se- 
gundo refere-se As funpoes que nao apare- 
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cem no teclado e qua sio u tad as palo pro- 
grama. 

Na listagam do programa, uma cadaia da 
caractarat aparaca antra apbstrofos, mas no 
visor da HP-41CV a masma aparaca precedi- 
da palo limbo to T . Essa notagao foi utili- 
zada para raprasentar os e*>apos am branco 
existentes no fim da algumas cadaias da 
caractarat utilizadas no programa. Por exam 
pk>, a linha 253 do programa aparaca na lis- 
tagem como: 

253 Me* 

Essa linha * impost ada palo prassionamanto 
das seguintes teclas: 

lALPHAl [mJ | SHIFT | [F] IS PACE 
ALPHA 1 



No visor entio apareceri: 
253 T Me 



As funpoes qua nao aparacam no taclado 
da HP sao muitas a para qua o usuArio im- 
post a essas f unpdas num programa, ou as 
utilize diretamente, ala deve saguir as instru- 
pdas contidas no manual da calculadora. Ve- 
jamos as linhas 67 a 155 da listagam do pro- 
grama para mais um examplo: 

67 x i 07 
155x<> 05 

Para impostar astas linhas, o usuArio deveri 
pressionar as saguintas seqiiincias da teclas: 



SHIFT 



linha 67 : [xEq] [ ALPHA | [x] 

[h] | SHIFT) [SPACE] 0 lA LPHAj 

linha 155: |XEQl | ALPHA | \x\ SHIFT 4 , 
fU lsHIFTl 0 1 ALPHA! @ 0 



Acred ito qua com astas instrupoas todos 
podarao resolver seus problemas. E coloco- 
ma A disposipao para eventuais consultas." 
Prof. Cl Audio Luiz Curotto 
Viposa - MG 
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EXTENDED BASIC 




Adquiri um JR da Sysdata, com 48 
Kbytes, e gostaria de saber como procader 
para ter certeza de que o mesmo possui 
Extended BASIC, pois todas as vezes que 
tentei rodar um dos exemplos das folhas.E-1 
e E-15 do manual, o micro indicou erro no 
cod. L3. 

Eu comprei o aparelho como tendo a re- 
ferida expansio. SerA que estou cometendo 
algum erro? Outra coisa que gostaria de sa- 
ber A sobre a possibilidade, segundo o ma- 
nual, do desligamento de todo o conjunto 
de membria ROM mediante comando exter- 
no, permitindo, desta forma, o uso de cartu- 
chos externos com programas residentes em 
ROM (EPROM), com o Atari e outros. 
Como A possfvel isto a aonde obter informa- 
poes? AliAs, telegrafei para a Sysdata e a fA- 
brica ainda nio me respondeu. Considero 
isto um desrespeito ao usuArio. (. . 

Paulo Fernando Vieira 
Gualba - RS 

Rametemos a sua carta para a Sysdata, 
mas infelizmente foi parar no antigo endere- 
po da empresa (a Sysdata agora esti na Av. 
Pacaembu, 788, Sio Paulo). AlAm disto, 
Paulo, o telegrams qua vocA mandou para a 
Sysdata, segundo a empresa, nao continha 
seu enderepo, estando assim explicada a de- 
mora em vocA receber sua retporta, qua 
agora publicamos: 

"Para varificar sa o aparelho contAm a 
versao Extended BASIC, basta, ao JigA-lo, 



taclar "ENTER" como resposta A men sagem 
qua surge na tela: SYSDATA —7. Se apare- 
cer no video a mensagem "JR EXTENDED 
BASIC, READY. > ", entio o aparelho esti 
dotado dessa facilidade. Caso contrArio, se 
aparacer so manta "READY E > ”, nio hA o 
Extended BASIC. 

Poda-se, tambAm, tentar utilizar uma das 
'funpoes do Extended, qua o computador 
nio aceitari se nio e stiver equipado com 
essa linguagem. Varifique, alternativamanta, 
o nbmero da sArie na embalagam ou sob o 
gabinete, pois os modalos com o Extended 
tAm a letra "E" no cbdigo. Ainda to bra o 
Extended BASIC, se a versio for 2.1 (nesse 
caso, na mensagem do video aparacarA "JR 
EXTENDED BASIC V 2.1 "). hi uma altera 
pao para o comando da desligamento da lin- 
guagem referido nas piginas A-5, E-0 a E-2 
do manual, pois, ao invAsdo comando CMD 
"B", "OFF", (versdes anterioras), foi adota- 
da a forma simplificada CMD "OFF" (a para 
ligar A CMD "ON"). 

Quanto ao desligamento do conjunto de 
membria ROM referido no manual, ji existe 
implemented ao no hardware, mas a empresa 
ainda nio esti comarcializando a interface 
para receber os refaridos cartuchos. (. . .)." 
Luiz Clayton Pellini 
Depto. de Apoio ao UsuArio da Sysdata 



sugestoes 



Pepo que haja maior esforpo no sentido 
de minimizar cada vez mais a utilizapao de 
linguagem tAcnica (...). E como isso pode ser 
feito? AtravAs de exemplos comparativos, 
analogias, generalidades etc. 

Alberto Eduardo A. Gonpalves 
Rio de Janeiro-RJ 

Gostariamos de parabenizA-los pela edipao 
de novembro de MICRO SISTEMAS, onde 
tivemos um artigo bem util sobre orientapao 
de antenas. Aproveitamos a oportunidade 
para sugerir a publicapao de algo sobre pro- 
gramapio para cAlculos das brbitas dos satA- 
lites para uso de radioamadores. 

Joio Henrique de Mattos (PY4BHB) 
Varginha — MG 

(. . .)Tenho duas sugestoes: queria que 
voces acrescentassem mais jogos para o 
TK82-C e, assim como hi em MICRO SIS- 
TEMAS cursos de programapao, seria inte- 
ressante se houvesse curso na Area de hard- 
ware. 

RogArio G. Ferraro 
Sio Paulo-SP 

Gostaria de sugerir algumas matArias para 
serem eventual mente publicadas: 

— Meios de acesso As linguagens de mAquina 
dos microcomputadores prof issionais (Cobra 
305, Sisco etc.); 

— O Z-80 tambAm poderia ser desvendado; 

— Sobre banco de dados, o futuro da Infor- 
mAtica; 

— Fluxogramas dos programas publicados, 
pois assim poderlamos adaptA-los a outras 
linguagens facilmente; 

— O sistema MUMPS. 

JIMO 

Serra Negra-SP 

Gostaria que a revista abordasse um pou- 
co mais o hardware pera os micros pessoais. 
Eduardo Freitas 
Sio Paulo-SP 




Envie suas sugestoes para 
MICRO SISTEMAS. Elas terao anotadas em 
nossa pauta e procuraremos, na madid a 
do fosstvel. viabilizA-las. 
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TODA A LINHA 
DE MICROS E 
MINICOMPUT ADORES 



A informapao nas pontas dos seus dedos 



Gerenctador de 
banco de dados 



dBASE 



Li 



Sistames operacio n ata: 
MS-DOS (IBM- PC) CP/ 
M CP/M-S6 CROMIX 
COOS MP/M MP/M-86 

□ Cursor endaracewl 
para o uso da fuiKOaa 
fullacraan. 



Automapao 
de escritorios 






Requerimentos do 
Sistema: 

□ (Microprocassadoraa 8060. 
8085. Z80. 8086. 8088) 

□ 64K p CP M; 128K p CP 
M-86 a MS-DOS: 56K p 
Apple M 

02 Disketes cl minkno de 
126K cada 

□ Terminal c 80 colunas e 
cursor endelecavel 

□ Impreseore com no mint- 
mo 00 colunas. 



Dtamac (a *rte 8.100) MtcrodlgRal (TK's 83 89 2000) 
CP*a 200 300 500, Snpreeaorae. eMhra. etgln, dtamac 
Mtcroanganho tale Appta-Trontc 




CartucAoe Cobra 400 



End. Rua da La pa. 180 gr. 1007 1008 — CEP 
20021 — Rio de Janeiro — Tel.: (021) 221-3069 
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De indigesto a/moQO, os cdlculos de vigas continuas passam a /eve cafe da manha 
com este programa para a I in ha TRS-80. Use-o e implemente-o a vontade 



Vigas continuas: 
automatize os calculos 



Alexandre Domingues Campos 



V iga continua 6 o prato didrio 
do projetista, prato este difi- 
cil de ser digerido atd cerca de 
dez anos atrds, quando come- 
9 aram a surgir as minicalculadoras pro- 
gramiveis e logo depois os microcompu- 
tadores. A partir dai, todo um ma^ante 
trabalho manual de aplica^o dos mdto- 
dos hiperestdticos, normalmente o de 
CROSS, utilizados para deter minar al- 
guns parametros para dimensionamento, 
tomou-se automdtico. 

Este artigo tenta atingir dois objeti- 
vos basicos: o primeiro 6 dotar qualquer 
escritdrio de calculo estrutural que ad- 
quira um micro£»mputador de um pro- 
grama que possibilite calcular vigas con- 
tinuas; o segundo, bem mais amplo, 4 
deixar para os colegas engenheiros que 
se disponliam a desenvolver programas 
prbprios uma rotina para cdlculo dos 
elementos estruturais a que este artigo 
se refere. 

Se o colega deseja um programa de 
maior alcance, para o cdlculo e dimen- 
sionamento de um pavimento tipo in- 
teiro, por exemplo, n£o precisa preo- 
cupar-se ou ocupar seu tempo desen- 
volvendo a rotina de cdlculo estdtico das 
vigas, pois esta pode ser simplesmente 
copiada da listagem aqui apresentada. 
Justamente por isso, fazemos referenda 
a estrutura interna de armazenamento 
do programa mais adiante. 



0 PROGRAMA 



Desenvolvido em BASIC para os 
equipamentos compativeis com o TRS- 
80, com pequenas altera^es o progra- 
ma poderd tamWm rodar nos demais. 
O metodo de resolu^o empregado 4 o 
das Matrizes de transference (ver refe- 
rence bibliogrdfica). 

0 programa 4 auto-explicativo. Pe- 
dem-se, na tela, os momentos de balan- 
90 s a esquerda e a direita e, para cada 
vao, seu comprimento, niimero de tre- 
chos, carga e comprimento de cada tre- 
cho. Nos exemplos de apbca^o, podere- 
mos ver quao ficil 4 introduzir os dados. 

Como resultado, obtem-se todos os 
parametros necessarios ao dimensiona- 



Figura 1 - Trechosde uma viga continua 



mento de vigas continuas. Aparecem na 
tela, vffo apos vao, os seguintes dados: 

a) momento negativo no apoio & esquer- 
da do vfo ; 

b) esfor 90 cortante a esquerda; 

c) pnmeiro ponto de momento nulo; 

d) segundo ponto de momento nulo; 

e) esfor 90 cortante & direita; 

f) ponto de momento mdximo positivo; 

g) valor do momento mlximo positivo. 



ARMAZENAMENTO DOS DADOS 



Cada vao 4 dividido em trechos, de- 
pendendo de seu niimero de cargas con- 
centradas. A figura 1 explica tal divisffo. 

Os dados sSo armazenados seqiien- 
cialmente em um vetor chamado vetor 
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L 1 


- Coaprimento do vao 1 




tv l 


- N° de trechos no vao 1 = 2 




p. 


- Carga concentrada no inicio do 1? trecho = 0 




a. 

1 


- Coaprimento do trecho 1 




q i 


- Carga distribuida no 1? trecho t 0 




P. 

1 


• 




a . 
1 


I DKM PARA 0 TRECHO 2 






• 




L 2 


- Coaprimento do vao 2 




tV 2 


- N® de trechos do vao 2 * 1 


A - > 


q 2 


\ - Carga distribuida no vao 2 




L 3 


- Coaprimento do vao 3 




tV 3 


- N° de trechos do vao 3*3 




P. 


- Carga concentrada no inicio do trecho 1 = 0 




a. 


- Coaprimento do trecho 1 






- Carga distribuida no trecho 1 




p. 

1 


: 




a. 

1 


* 




q i 


IDEM PARA OS TRECHOS 2 E 3 




P 






n 






a 






n 






q„ 


• 

• 






• 




\ / 







3000 Kg 


1210 Kg/m , 


, 860 Kg/m I dir 


a a a ~ ' 

* 2 -° % 2 - 5 V i’» - , - * 



de trabalho, designado por A no pro- 
grama. Nestes s£o colocados, vSo ap6s 
vao, os valores correspondentes a cada 
urn deles, e para cada trecho armaze- 
na-se: 

• P{ — carga concentrada no inicio do 
trecho; 

• qj — carga distribuida no trecho; 

• aj — oompnmento do trecho. 

Se o vao n£o tem cargas concentra- 
das, armazena-se apenas sua carga dis- 
tribuida e o programa assume como 
compnmento do trecho o prdprio vao. 
Sendo assim, o vetor de trabalho para a 
viga da figura 1 scii o que nos mostra a 
figura 2. 

0 programa opera com tais dados atd 
a 0bten9.ro dos parametros de saida. Fa- 
9a seu programa montar automatica- 
mente o vetor de trabalho, seguindo a 
ordena^So aqui aprcsentada, e pode usa- 
lo como sub-rotina. 

Se quiser utilizar os valores dos mo- 
mentos e esfor^os cortantes entSo cal- 
culados (para dimensionar . por exemplo) 
antes da impressffo de cada urn, copie-os 
em outra vanavel e transfira a execu^o 
para o local em que serSo operados. E 
bom proveito... 



sugestOes para 
implementa^Ao 



Os colegas interessados podem auto- 
matizar ainda mais seus projetos com 
unplementa96es bastante uteis, aumen- 
tando muito a eficiencia de seus escrito- 
rios, como por exemplo: 

a) Programa integrado para cdlculo de 
um pavimento completo - usa-se para 
resolu^So das vigas a rotina apresentada 
neste artigo, eliminando-se a entrada de 
dados e montando-se o vetor A a partir 
das entradas do primeiro; 

b) Cdlculo estatico e dimensionamento 
de vigas continuas - a parte de dimen- 
sionamento pode ser facilmente lntro- 
duzida com a utiliza^So dos resultados 
deste programa, como sugerido no ulti- 
mo pardgrafo do item anterior. Opera-se 
com os esfor^os chegando-se as dimen- 
sdes e se^o de ferro necessdrias para ca- 
da um deles, levando-se em conta as re- 
comenda^Oes de nossa norma brasileira 
para projetos de estrutura de concreto 
armado - a NB-1 ; 

c) Alterar a entrada de dados de forma 
a fornece-los para varias vigas ao mesmo 
tempo. Esta altera^o 6 rapida e ficil. 

Pode-se pensar em vinos outros 
acrtscimos, dependendo da necessidade 
de cada um, e mnguem melhor do que 
os prdprios colegas para decidir a estc 
respeito. Vale ressaltar, no entanto.que 



Figura 2 - Estrutura do vetor de trabalho 



Figura 3 - Viga -exemplo 

as umdades dos dados devem ser compa- 
tiveis e nestas sairao os resultados. 

O programa ocupa 3.864 bytes de 
memdria, sem o dimensionamento das 
variiveis. Para ter sua capacidade au- 
mentada, basta que se altere o dimensio- 
namento, instru^o DIM no inicio do 
programa, do vetor A. Este acr^scimo fi- 
cari restrito a quantidade de memdria 
disponivel de seu microcomputador. 

Enibora possam variar de um trecho 
para outro, as cargas distribuidas devem 
ser uniformes em cada um deles. Se for 
necessario variar alguma, defina novo 



trecho, com carga concentrada micial 
igual a zero. 



EXEMPLO DE UTILIZAgAO 



Se voce deseja este programa tal co- 
mo esta, segue um exemplo aplicativo 
a partir do cdlculo da viga que esti na fi- 
gura 3. A esquerda, temos o que se apre- 
senta na tela, e £ direita os dados lntro- 
duzidos: £ 
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VIGAS CONTINUAS: AUTOMATIZE OS CALCULOS 



Teb 1 



IDENTIFICAgAO DA VICA 


> VICA 1 

1 


H° DE VAOS 






Teb 2 



VIGA 1 

COMPR I MKNTO DO VAO 1? 


5 


TRECHOS NO VAO? 


2 


P? 


0 


a? 


2,5 


q* 


1210 


p? 


3000 


a? 


2,5 


q ? 


860 



Teb 3 



VIGA 1 




COMPRIMENTO DO VAO 2? 


6 


TRECHOS NO VAO? 


1 


q? 


860 



Teb 4 



VIGA 1 




MBE? 


-2420 


MBD? 


0 


ENGASTES? 


0 




Teb 5 


RESULTADOS 


VICA 1 




VAO NtIMP.ItO I 




MOM 


NKCATI VO 


- -2420 


QE 




- 3934 


Pt. 


MOM. NULO 1 


- 0,68 


Ft. 


MOM. NULO 2 


- 3,83 


V 




-4241 


X ■ 




2,3 


*♦- 




3635 




Teb 6 




VICA 


i 




VAO NUMF.RO 2 




MM. 


NKGATIVO 


- -4279 


qe- 




3293 


pt. 


MOM. NULO 1 


- 1,65 


Pt. 


MOM. NULO 2 


- 5,99 


V 




-1867 


X - 




3,82 






2026 



Teb 7 1 

I QUER CALCULA8 OUTRA VICA? 0 

READY 

Us 

Cabem algumas observances, enume- 
radas a seguir : 

• Na Teb 1 , a identifica^o da viga po- 
de ser uma string de at 6 50 caracteres. 
• Nas Telas 2 e 3 nota-se que, se o vSo 
tem mars de um trecho, o programa pe- 
dira, na ordem, P, a e q para cada um 
deles. 0 P do primeiro trecho deve ser 
introduzido como sendo igual a zero. 
Se o vSo tem apenas um trecho, o pro- 
grama pede apenas sua carga distribuida, 
evitando introduy£o de dados desneces- 
sdrios. 

• Na Teb 4, se a pergunta ENGASTES 
for respondida com 1 , o programa pedi- 
ra CCE? (conduces de contorno a es- 
querda) e CCD? (conduces de contorno 
a direita), que serffo 0 para apoio sim- 
ples e 1 para engaste. A viga s eii ent£o 
resolvida para estas condi^Ces de contor- 



no e nao oom o esquema normal de 
apoios simples nas extremidades. 

• Quando da saida de resultados, o mi- 
crocomputador os apresenta por vSo. 
Para que novo vJo seja apresentado na 
tela, pressione qualquer tecla. 

• Na Teb 7, se & pergunta QUER CAL- 
CULAR OUTRA VIGA? responde-se 1, 
o computador retoma a Teb I ; respon- 
dendo-se 0, encerra-se o programa. 
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Vigas contmuas • 



5 CLS 

8 DEFDBL D-H.L-V 

10 INPUT"IDENT IFICA-AO DA VIGA" ; IDS : INPUT "N. DE VACS",N 
20 DIM P ( N+ 1),T(3,3),U(3,3),V(3,3),A(1 00 >,F(10),X(4),Z(3),R<3),S(3) 
30 B = 1 : P < i > =1 
40 FOR A = 1 TO N 

50 CLSsPRINT IDlsPRINT "COMPR 1MENT0 DO VAO ", A, s INPUT A(B):B»B+1 
60 INPUT "TRECHOS NO VAO ", A<B> s D = A<8> s B = B ♦ 1 
70 FOR C « 1 TC D 
80 IF D - 1 THEN GOTO 100 

90 INPUT "P ", A< B > s B * B ♦ 1 s INPUT "a ", A(B): B =B + 1 
100 INPUT "<t " , A(B> : B = B ♦ 1 
110 NEXT C 

120 IF F ( 1 > * 1 GOTO 010 
130 P < A ♦ 1 ) = 8 
140 NEXT A 

150 CLS:PRINTID»: INPUT "MBE ", X : INPUT "MBD "• Y : INPUT "ENGASTES 

"»Z| 

160 IF Z * 1 THEN GOTO 165 ELSE GOTO 17U 
165 INPUT "CCE ",0 : INPUT "CCD ", P 

170 FOR I M TO 3 : FOR J » 1 TO 3 i U ( I,J >« 0 i NEXT J,I 
180 U<1,1>*1 * U<2,2>=1 t U < 3, 3 ) = 1 
190 FOR A« 1 TO N 

200 T < 1 , 1 > * -2 :T(2,2) * -2 :T<3,3>* 1 : T(3,l>=0x T<3,2>= 0 
210 B = P < A ) * F =A (B ♦ 1): T<2,1> = 6/A(B> *T(1,2> *A(B>/2« B =B+2 
220 IF F * 1 THEN GOTO 230 ELSE GOTO 240 

230 T(l,3)*=A<B-2)63»A(B)/24sT(2,3)*-ACB-2)62»A(B)/4:G0T0350 
240 T(l r 3)-0xT(2 r 3)-0lH-0tI-0 
250 FOR C=B TO B*3«F-1 STEP 3 
260 L=A<C-2-I) 

270 K»< <L-H)64-<L-H-A<C*1 )> 641/24 
280 G=A( C ) * ( L-H )62/2* (i-(L-H)/L) 

290 T<l,3>*T(l,3>*G+< ( < L-H > 63- <L-H-A< C+l > > 63 > /6- 3*K/L > *A < C+2 > 

300 G=A(C)»<L-H)»( (L-H)62/L62-l ) 

310 J=-<2*L-2»H-A<C+i)>«A<C+i>/2 

320 T(2,3) = T(2,3)+G*<J+6*K/L62>»A<C+2> 

330 H=H+A<C+1 ) 1 1*1+3 
340 NEXT C 

350 IF F(3 1=1 THEN GOTO 590 

360 FOR 1*1 TO 3s FOR J=i TO 3sV< I , J>=0sNEXT J,I 
370 FOR 1=1 TO 3s FOR K = i TO 3SF0R J=1 TO 3 
380 V(I,K)=V<I,K)+T(I,J7*U(J,K) 

390 NEXT J.K.I 
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4UU FOR 1 = 1 TO 3:F0R J=i TO 3:U( I , J)=V< I , J> :NEXT J,I 
410 NEXT A 
430 R(3)=i 

440 IF 0=0 AND P=0 THEN 510 

450 IF' 0=P THEN GOTO 460 ELSE GOTO 470 

460 M=-U<l,3)/U<i,2>:R(l>=0:R<2>=M:MF=U<2,2>*M+U<2,3>:G0T0 520 
470 IF 0=0 THEN GOTO 480 ELSE GOTO 490 

480 R=- <U( 1 , 2.)*X+U< 1 , 3) ) /U < 1 , 1 ) : R < 1 ) =R :R ( 2 ) =X : MF=U( 2, 1 ) *R+U< 2 , 2 ) «X+U 
<2,3):G0T0 20 

490 IF P=0 THEN GOTO 500 ELSE GOTO 510. 

500 M = < Y-U (2,3) )/U( 2 ,2) :R(1)=0:R(2)=M: GOT 0 520 
510 R = <Y-U(.2,2>*X U<2,3>)/U<2,i> t R < 1 >=R :R <2>=X 
520 F<3)=1 
530 POR A=1 TO N 

540 CLS:PRINTIDi:PRINT:PRINT /, VAO NUMERO", A 
550 PRINT"MOM. NEGATIVO = ",CINT<R<2>> 

560 FOR 1=1 TO 3 : S<I)=0 : NEXT I 
570 GOSUb 700 
580 GOTO 200 

590 FOR 1=1 TO 3 : FOR J=1 TO 3 
600 S\I)=T<I,J)*R(J>+S»I) 

610 NEXT J,I 

620 FOR 1=1 TO 3 : R<I> = S<I) t NEXT I 
630 NEXT A 

635 PRINT sPR INTsPR INT"MOM • FINAL = ",,CINT<MF> 

636 A%=INKEY*:IF AS-"" THEN 636 
A40 Y=0 s X*0 * P*0 s 0=0 * MF=0 

650 CLS : PR INT"QUER CALCULAR OUTRA VIGA ", s INPUT G 
660 IF G=i : CLEAR t GOTO 05 
6/G END 

700 B=P ( A ) s F=A<B+1) s Q=0 : H=0 s 1=0 
710 Q=6*R(1)/<A(B) >62 : IF E = i THEN Q=Q*KA> 

720 Q=-3*R(2)/A<B)+Q : B=B+2 

730 IF F=1 : Q=A<B >*A<B-2)/4+Q : GOTO 780 

740 FOR C=B TO B+3*F-i STEP 3 : L=A<C-2-I> 

750 0= < A ( C ) * < L-H > 63 ) /L63+A ( C+2 ) / ( 4*Lo3 ) * < < L-H) 64- < L-H-A< C + i ) ) 64 ) +Q 
760 H=A(C+i> ♦ H s 1=1+3 
770 NEXT C 

780 PR INT"QE = ", , CINT(Q) 

790 B=P ( A > +2 

800 Z(2)=Q i Z(3)=R<2> : M=R(2) 

810 IF F=i THEN Z<i)=-A(B)/2 s H=0 : 1=1 i C=B-3 : GOTO 930 

820 A ( B-i ) =0 : H=0 : 1=1 : K=-l 

830 FOR C=B TO B+3*F-1 STEP 3 

840 Z( 1 )=-A<C+2)/2 : Z<2)= Q +A(C+2)*H 

850 Z < 3 ) =h- < A( C+2 ) *Ho2/2 > 

860 S=0 J IF C=B THEN 920 
870 FOR J=K TO 0 STEP -1 
880 S=A ( C-3* J-2 ) + S 

890 Z ( 3 ) = A(C-3*J-1 ) *A ( C-3* J-2 )*<S-A(C-3*J-2) /2 ) +A( C-3* J > *S+Z ( 3 ) 

900 Z ( 2 ) = -A < C-3* J-2 )*A(C-3*J-i)-A< C-3* J) +Z < 2 ) 

910 NEXT J 
920 K =K + 1 

930 D=Z < 2 ) 62-4 *Z (1)*Z(3) 

940 IF D< 0 THEN GOTO 1060 
950 S= (-Z(2)+SQR(D) ) / ( 2*Z ( 1 ) ) 

960 IF S>*H AND S<*H+A(C+1) : F<4)=1 
970 T=<-Z<2)-SQR<D>>/<2*Z<1>> 

980 IF T >=H AND T<*H+A(C+1) s F<5) = 1 
99U IF F ( 4 ) =1 THEN X<I)=S s F<4)*0 : F(I)=1 : 1=1+1 
1000 IF F<5)=1 THEN X<I)=T s F<5)=0 J F(I)=1 : 1=1+1 
1010 X«-Z<2>/<2*Z<1>> 

1020 IF X< H OR X)H+A(C+1 ) I GOTO 1050 
1030 X(3)=X 

1040 X(4)=Z(1)*X62+Z<2)*X+Z(3) 

1050 IF F=1 THEN 1100 
1060 H=H+A(C+i) s X=H 
1070 G=Z(i)*X62+Z(2)*X+Z<3) 

1080 IF G >X ( 4 ) THEN X(4)=G s X<3)=X 
1090 NEXT C 

1100 IF F( 1 >*1 AND F(2)*l THEN 1140 
1110 IF F < 1 ) =1 THEN 4130 

1120 PR INT"NAO HA FONTO DE MON. NULO" : GOTO 1160 

1130 Xi=X< 1 >*100 s X< 1 )=CINT(X1 )/100* : PRINT"PT. MOM. NULO 1 * ",X(1 
D 5 GOTO 1160 

1140 IF X(1)>X<2) T'HEN G=X< 1 ) : X(1)=X<2) : X(2)«G 

1145 Xi=lOO*X(i) : X2=1Q0»X ( 2 ) : X< 1 )=CINT(X1 )/100 : X<2)=CINT<X2)/5 
00 

1150 PR INT"PT . MOM. NULO 1 = ",X<1) i PRINT"PT. MOM. NULO 2 = " X<2> 
1160 G=P < A ) : Q=2*Z ( 1)*A(G)+Z<2) : PRINT "QD = CINT(Q> 

1170 G=P(A)+1 1A(G)=F 
1100 F(i)=0 : F(2>=0 

1190 X3=X<3)*100 : X<3)=CINT(X3)/100 : PRINT"x = ",X<3> 

1200 PRINT"M+ = ", CINT ( X ( 4 > ) 

1210 X< 4 ) =0 t X<3)=0 : X<2)=0 s X(1)=U 
1220 A*=INKEY* * IF A%="" THEN GOTO 1220 

1230 RETURN ■ 
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Alta performance 
para sistemas de 
processamento 
de dados. 

Impressora M-180 




Impressora matncial de impacto com 
velocidade de 180 cps. 

Projetada para servir como periferico 
a qualquer sistema de 
processamento de dados. 
Desenvolvimento Globus, 
utilizando-se de tecnologia de ponta 
em impressoras matriciais. Grande 
flexibilidade de software, com 
operagao facil e performance 
garantida. Alem de todas as 
interfaces disponiveis. e compativel 
com sistemas IBM. 



Impressora M-340 X 




Impressora matncial de impacto com 
velocidade de 340 cps 



A M-340 X e a nova designagao da 
M-200. Esta e a impressora matricial 
mais rapida disponivel no mercado. 

Devido a sua alta performance e 
confiabilidade tern merecido a 
preference para utilizagao em 
sistemas de processamento de 
dados. Possue interface para sistema 
IBM. A Globus produz linha completa 
de impressoras para todas 
aplicagbes, alem de dispor de pegas 
de reposigao para entrega imediata. 




GLOBUS OIGrTOL S.P. 

EOUtmMtNTOS PEWRRKOS 



MUITO MAIS DO QUE MAQUINAS 
SIGNIFICASERVIQO 



Matriz e Fabrlca: Rua Isidro Rocha. 1057 
CEP 21241 - Tel.: 372-4385 - Telex (021)31991 
GLDG - BR - Vigario Geral - RJ - Brasil 
Filial: Rua Stella. 515 - Bloco H - Grupo 21 
CEP 0401 1 - Tels.: (Oil) 231 -2586/571 -4642 
Telex (01 1 ) 38688 - GLDG - BR 
Vila Mariana - S3o Paulo - SP 

VASTA REDE DE DISTRIBUIQAO I 



Em auxflio de quern trabalha com Assembler nos micros da linha Sinclair, 
urn programa que revela o que se passa com o processador a cada instrugao dada 



O Assembler, 
passo a passo 



Gerson Bianco Alonso 



A 



cho que todos concordam que programar em Assem- 
bler muitas vezes € absolutamente necessdrio. Progra- 
mas de uso geral tern no BASIC a linguagem do coti- 
diano, mas quando a velocidade, a economia de me- 
moria e a eficiencia passam a ter urn peso muito alto, 



o Assembler 6 a unica alternativa. 

O acesso ao Assembler 6 feito atravds da fun^o USR e sua 
montagem na memdria do micro 6 efetuada com PEEK e 
POKE, usando endere^os e codigos em decimal. Os recursos 
disponiveis no micro sdo poucos, dai a existencia de uma sdrie 
de programas auxiliares que se incumbem de converter os cddi- 
gos, montd-los e executd-los, como 6 o caso do Monitor Assem- 
bler, publicado em MICRO SISTEMAS numero 23. 

Programar em Assembler 6 ligeiramente diferente da progra- 
ma^io em BASIC, uma vez que a pessoa se ve obrigada a convi- 
ver com bits, flags, memdrias, registros e uma s^rie de outros 
termos que, principal mente para o miciante, tern um efeito 
aterrorizador. Existem equipamentos sofisticados e onerosos - 
se comparados com os nossos microcomputadores — que auxi- 
liam a desenvolver esta fase do processo, mas que ndo sdo vi d- 
veis a nfvel pessoal. 



PROGRAMA AUXILIAR 



0 programa que aqui trazemos foi desenvolvido para os mi- 
cros com ldgica Sinclair e se presta, respeitando-se as limita- 
9 des dos equipamentos desta linha, a auxiliar o iniciante no de- 
senvolvimento de seus programas Assembler, embora possa ser 
bastante util mesmo para o programador mais expenmentado. 
£ composto de uma listagem em BASIC e outra em Assembler. 

Vooe saberia dizer, por exemplo, o que contem o acumula- 
dor e os flags apds efetuada uma instru 9 do? Pois muito bem. 
Com este programa serd possivel observar, instru^o por instru- 
9 do, o que acontece com cada um dos registradores, o estado 
de cada flag, o conteudo do acumulador em hexadecimal e na 
sua forma bindria. 

Estd prevista a possibilidade de se executarem instru 9 des de 
atd 4 bytes (mdximo no Z80); entretanto, podem-se utihzar 
quatro instru 96 es de 1 byte ou qualquer outra combina^Jo que 
totalize, no mdximo, os 4 bytes. 

A parte em BASIC, atd a instru 9 do 40, monta os tftulos. 
Dai atd a instru 9 do 120, transfere para a rotina Assembler a(s) 
instru 9 ao (des) que deve(m) ser executada(s). Na linha 130, 



instrucao 

I 

/ B1 B2 B3 B4 



FLAGS ACUMULADOR 

binArio 

t 

/ SZ?H?$NC n / 7654 3210 n 



AA, V BB CC y sDDEE, J1HLL, XX ZC 



REGISTROS EM HEXADECIMAL 



' T L L 

(HL) Uj 



CARRY FLAG 
ZERO FLAG 



Figura 1 



passa o controle ao Assembler, que executa toda a tarefa de 
montagem de registros, flags etc. 

Se a instru 9 So for menor que 4 bytes, os bytes restantes se- 
rSo preenchidos com 00(NOP); se for maior, o excesso serd 
ignorado. Agora, se nenhuma instru^o for fornecida, a ultima 
serd reexecutada, propordonando a possibilidade de observar 
uma seqiiencia sem redigitd-la. 

0 Assembler cria um conjunto fictido de registros e opera 
com eles, os quais sempre sdo mantidos atualizados e em me- 
mdria. A cada opera 9 do, eles sdo recuperados, modificados e 
reguar dados. 

A TELA 



Na tela, apos a execu 9 ao dos 4 bytes da instru 9 do fornecida 
via BASIC, serdo apresentados os dados que constam da figura 
1 , os quais possuem as seguintes fun 9 des: 

• Instru 9 ao — mostra os bytes executados; 

• Flags - mostra cada um dos flags: S (sinal), Z (zero), H 
(meio arraste), $ (paridade overflow), N (subtra 9 do), Q( carry), 
? (nao utilizado); 

• Acumulador bindrio — mostra o acumulador na sua forma 
bindria (bit por bit); 

• Registros — mostra o conteudo do acumulador e dos pares 
BC, DF e HL em hexadecimal; 

• xx - mostra o conteudo da memdria apontada por HL; 

• ZC - mostra os flags zero e carry que, por serem os mais 
utilizados, sdo destacados do grupo anterior. Ndo confundir: se 
o flag for 0 , ndo significa que o resultado da opera 9 do tenha 
sido zero; no entanto, se este for 1 , o resultado foi zero. 

A tela mostra a situa 9 ao descrita na figura 1 para as ultimas 
seis opera 96 es executadas. 
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List agent BASIC 





10 SLOW 

20 PRINT "GERSON B ALONSO - MI 
CRO SISTEMAS" 

30 PRINT " INSTRUCAO IND-FL 
AG ACUMULADQD OB OB GD 

EE UWIUH " 

40 PRINT AT 21,3; "□ □ 0 0 

Baa EH 33" 

50 LET A$="00" 

60 LET A$=A$+" 0000000" 

70 LET A$=A$ ( TO 8) 

80 LET N-16530 

90 POKE N , CODE A$*16+CODE A$(2 
) -476 

100 LET N=N+1 

110 LET A$=A$ ( 3 TO ) 

120 IF A$<>"" THEN GOTO 90 
130 RAND USR 16514 
140 INPUT A$ 

150 IF A$=" " THEN GOTO 130 

160 GOTO 60 

170 SAVE "OBS REG" 

180 RUN 



Blocos em Assembler 



16514 


21 


40 


16524 


10 


F9 


16534 


F5 


E5 


16544 


40 


40 


16554 


OC 


40 


16564 


01 


ED 


16574 


06 


03 


16584 


CD 


09 


16594 


F4 


40 


16604 


Dl 


CD 


16614 


CB 


69 


16624 


40 


13 


16634 


OF 


OF 


16644 


1C 


77 


16654 


1C 


CB 


16664 


C9 





40 


06 


04 


56 


El 


Dl 


Cl 


FI 


F5 


E5 


D5 


C5 


Dl 


72 


23 


73 


0E 


63 


09 


54 


B0 


EB 


0E 


22 


CD 


EE 


40 


Dl 


41 


23 


23 


23 


13 


13 


06 


05 


F4 


40 


23 


Cl 


28 


0B 


CB 


E7 


10 


FA 


1A 


F5 


C6 


1C 


77 


FI 


23 


23 


C9 


23 


03 


30 


01 


3C 



23 


5E 


23 


D5 


00 


00 


00 


00 


F5 


06 


04 


21 


23 


10 


F9 


2A 


5D 


09 


01 


EF 


09 


11 


92 


40 


CD 


09 


41 


5A 


11 


40 


40 


CD 


CD 


EE 


40 


23 


AF 


CB 


19 


8F 


18 


07 


CD 


F4 


E6 


F0 


OF 


OF 


E6 


OF 


23 


C6 


23 


06 


08 


3E 


77 


23 


10 


F5 



RESTRJCdES e exemplo 

Antes de passarmos ao exemplo, 6 importante observar 
algumas restri^Oes concernentes a operacionalidade do progra- 
ma: 

1 ) Devido is prdprias caracterfsticas dos equipamentos da li- 
nha Sinclair, os registros auxiliares (AF’ f BC’, DE’ e HI/), bem 
como os indices (IX e IY), nSo podem ser utilizados, pois o sis- 



maiM’ii DOS 

AF. AF 00 00 00 01000100 00000000 

XOR A. 00 00 00 00 00 00 00 D3 10 





QU 119 CB ml jiVii i mvi >f>y»Miii 


3B 7E 


3B 7E 00 00 01000100 01111110 


LDA.7B 


7E 00 00 00 00 00 00 D3 10 


17 


17 00 00 00 01101100 11111100 


RLA 


FC 00 00 00 00 00 00 D3 10 


A7 


A 7 00 00 00 10111100 11111100 


AND A 


FC 00 00 00 00 00 00 D3 00 


06 04 


06 04 00 00 10111100 11111100 


LDB.04 


FC 04 00 00 00 00 00 D3 00 


80 


80 00 00 00 01010001 00000000 


ADD B 


00 04 00 00 00 00 00 D3 11 


CB 00 


CB 00 00 00 00000000 00000001 


ADC 00 


01 04 00 00 00 00 00 D3 00 


CB 47 


CE 47 CB F7 00000000 01000101 


CB F7 


45 04 00 00 00 00 00 D3 00 


SET 2, A 


□ D3 a x 9 x n ((dial 


SET 6. A 





Figura 2 



Montagem do programa 


1) Coloque o Monitor Assem- 
bler (MICRO SISTEMAS 23) 
na memoria do micro e logo 
apos digite uma linha I REM 
1 1 — que deve ter, no minimo, 
151 caracteres. A scguir.cn tre 
com o bloco Assembler. 

2) Digite a bstagem BASIC, 
exceto as instnifdes 1 70 e 180 
(6 aconsclhavcl nio apagar o 


monitor : elc sera util se houver 
qualquer eno de digita^io na 
primeira fase). 

3) Salve o programa em fita. 

4) Rode o programa com RUN 
e execute as instru^des que 
constant do final deste artigo. 

5) Uma vez testado, delete o 
Monitor Assembler. 

6) Salve a versao final gravan- 
do as linhas 170 e 180. 



tema os emprega para o manuseio da tela no modo SLOW. Co- 
locando o programa em FAST, 6 possfvel acessi-los, bastando 
algumas altera 9 des no programa e observando as restri^Oes ci- 
tadas no manual. 

2) Como o ponto de retorno ao BASIC 6 mantido no stack, 
este s 6 deve ser utilizado se for reconstituido o seu estado ori- 
ginal antes de acabar a rotina Assembler. Portanto, toda instru- 
9 *o PUSH deve ter o seu POP respectivo durante o processo. 

3) As instru 96 es s*o executadas sem ser analisadas, pois isto 
exigiria um programa muito extenso. Desta forma, elas devem 
ser executadas uma a uma, ou em grupos que totaUzem 4 bytes. 

4) Saltos serao executados fugindo ao controle do sistema, 
o que deve ser feito com bastante crit&io ou dentro de sub- 
rotinas. 

5) Sub-rotmas podem ser utilizadas, desde que observados os 
itens anteriores. 

Passemos agora ao exemplo. A rotina Assembler que esti na 
figura 2 destina-se a demonstrar o efeito do programa. Pode-se 
observar a situa 9 *o interna nas ultimas seis opera 96 es. A partir 
daf, sempre 6 executado um SCROLL, perdendo-se a informa- 
9 S 0 mais velha. 

Podemos saber agora tudo o que aconteceu durante a exe- 
019*0 da nossa rotina: o acumulador contdm 45H, o registro B 
contim 04H e nSo hi nenhum flag setado. 

DICAS FINAIS 

Caso voce precise verificar algumas rotinas, estas devem ser 
montadas em qualquer parte da memdria e chamadas por um 
CALL (CD xx xx) que contim menos de 4 bytes. Este proces- 
so permite executar blocos de instru 9 $es cujo tamanho fica li- 
mitado i quantidade de memdria disponfvel. Apds a execu 9 *o, 
serSo mostrados os resultados como se a rotina fosse uma uni- 
ca instru 9 *o. 

O programa foi montado com fms unicamente diditicos e 
pode rodar em equipamentos com 2 Kb de memdria. Vale tam- 
bim destacar que, atravis do valor mostrado pela memdria 
apontada por HL, 6 possfvel monitorar outros programas 
Assembler. ■ 

tm 



G6rson Bianco Alonso 4 engenheiro e atua na irea de Projetos Mec&ni- 
cos/Estruturais. E autodidata em microcompu tadores, possuindo um Sin- 
clair, Sharp PC-1500 e HP-41. Junto com Daniel Hendrick, desenvolve 
programas para estes equipamentos. 
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Voce pode utilizar pa lavras diferentes para identificar os comandos 
do DOS, criando novas listas de palavras reservadas. Ve/a como 




Alterando 
comandos DOS 



Rudolf Horner Junior 



Q uando estamos digitando uma linha de programa, to- 
das as teclas que tocamos estSo sendo registradas em 
um buffer de memrina. Trata-se de um espa^o de 256 
bytes (que ficam na pdgina numero dois da memdria RAM) on- 
de sao registrados temporariamente todos os comandos e ins- 
trades que introduzimos at£ que pressionamos a tecla de re* 
torno (RETURN ou CR: retornar o carro). £ justamente por 
este motivo que o computador impede que sejam escntas li- 
nhas de instru^ao muito grandes. As linhas s6 podem ser m- 
troduzidas caso possam ser colocadas no espa90 de 256 bytes 
destinados ao buffer de entrada pelo teclado. 

Assim que definimos que a linha jd acabou de ser escrita, o 
computador percorre este buffer e procura entender o que foi 
introduzido, tentando identificar comandos que sejam da lin- 
guagem BASIC ou do Sistema Operacional de Discos. Feita a 
identifica9ao, a linha de programa 6 registrada em um outro 
ponto da memdria e o buffer de entrada volta a ficar disponi- 
vel para uma outra entrada pelo teclado. 

Quando percorre o buffer procurando palavras reservadas 
do BASIC ou do DOS, o computador tern que confrontar cada 
seqiiencia de caracteres que digitamos com uma lista mtema de 
palavras reservadas. Quando encontra uma palavra de que ele 
conhece o significado, j a saberd o que fazer quando tiver que 
executar o programa, uma vez que cada palavra reservada tern 
uma fun^ao e uma aplica^Io especificas. 

Existem basicamente, portanto, na memdria do computa- 
dor, duas listas: uma lista dos comandos da linguagem BASIC 
e uma lista das palavras reservadas do Sistema Operacional. 
Embora tenham a mesma fun^o, as listas sSo registradas em 
tipos diferentes de memdria do computador. A lista de coman- 
dos BASIC 6 dita residente e 6 gravada na memdria ROM. A 
lista de comandos DOS 6 armazenada em memdria RAM assim 
que o equipamento 6 ligado. 

AS FORMAS DE REGISTRO 

As listas de comandos estflri registradas em endere90S espe- 
clficos da memdria, e a forma como sao registradas as palavras 
reservadas 6 bastante simples. No Apple, a tabela de ASC II 6 
duplicada. de modo que todos os caracteres podem ser identi- 



10 


TEXT : HOME : NORMAL : 


SPEED= 




255= PRINT "LISTA DOS 
OS APPLESOFT: •*: PRINT 


COMAND 


20 


FOR A = 53456 TO 53860: 


REM 




ENDERECOS DA LISTA DE 
OS APPLESOFT 


COMAND 


3© 


C = PEEK <A>: PRINT CHR* <C> 




?: IF C < 128 THEN 60 




40 


L = L + l: HTAB 1 + 3 * 


<L - I NT 




< L / 5> * 5> 




50 


IF PEEK <36> = 0 THEN 


PRINT 


60 


NEXT : PRINT : END 





Figura 1 



ficados por at£ dois numeros. Desta forma, a letra T pode ser 
codificada tanto pelo numero 84 como pelo numero 212, que 
6 da segunda tabela. 

Para registrar o comando PRINT na lista de palavras reser- 
vadas. por exemplo, sao gastos cinco bytes (um para cada ca- 
reer da palavra). Em determinado ponto da ROM (pois 
PRINT 6 um comando da linguagem BASIC), existe um nu- 
mero que codifica a letra P, outro que codifica a letra R, outro 
a letra I e outro a letra N. Todos estes numeros sao tornados da 
primeira tabela de ASC II. Para registrar a letra T (ultima da 
palavra). usa-se igualmente o ASC II de T em sua codifica^o, 
mas da segunda tabela e n£o da prime na (21 2 e nSo 84). Desta 
forma, fica registrado o comando PRINT como uma palavra 
reservada de BASIC, e o ASC II da ultima letra da palavra 6 co- 
dificado com um numero da segunda tabela, para indicar 0 fi- 
nal desta palavra. 

O programa que estd listado na figura 1 le a memoria ROM 
do computador e faz uma lista de palavras reservadas atrav^s 
destas formas que acabamos de explicar. A lista de comandos 
BASIC, como podemos ver na instru9ao da linha 20, principia 
no endere90 decimal 53456 e vai atd o endere90 53860. 0 
programa simplesmente le os numeros e os transforma para o 
cardter ASC II correspondente. Toda vez que 6 encontrado um 
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10 TEXT : HOME : NORMAL : SPEED= 
255: PRINT "LI ST A DOS COMAND 
OS DO D.O.S."* PRINT 
20 FOR A = 43140 TO 43271: REM 

ENDERECOS DA LISTA DE COMAND 
OS D.O.S. 

30 C = PEEK <A>: PRINT CHP* <C> 
?: IF C < 128 THEN 6© 

40 L = L ♦- 1: HTAB 1 ♦ 10 * <L - 
INT <L ✓ 4.) * 4> 

50 IF PEEK <36> = 0 THEN PRINT 
60 NEXT : PRINT : END 



Figura 2 

numero que representa uma letra da segunda tabela, o compu- 
tador sabe que encontrou o final de uma palavra reservada. 

Na figura 2 temos um programa bastante semelhante ao da 
figura 1 . Este programa tambdm elabora uma l.sta de coman- 
dos, desta vez percorrendo a memdria RAM e gerando a lista 
de comandos do Sistema Operational de Discos. Os enderefos 
de memdna agora sfo de 43140 at£ 43271. £ importante ob- 
servar, entretanto, que estes endere^os fazem referenda a lista 
de comandos do DOS para sistemas com 48 Kb de memdna 
RAM. Para sistemas que dispOem de menos memdria, a lista de 
comandos 6 registrada em endere^os menores. 0 funcionamen- 
to deste programa & identico ao do anterior e a figura 3 mostra 
o que acontece quando ele 6 executado. 

Observe que a lista de comandos do DOS tern 28 comandos, 
dos quais dois (SAVE e LOAD) s£o comuns a lista correspon- 
dente do BASIC. Para o BASIC, estes comandos fazem referen- 



LISTA DOS 


COMANDOS 


DO D.O.S. 




INIT 


LOAD 


SAME 


RUN 


CHAIN 


DELETE 


LOCK 


UNLOCK 


CLOSE 


READ 


EXEC 


WRITE 


POSITION 


OPEN 


APPEND 


RENAME 


CATALOG 


MON 


NOMON 


PR# 


IN# 


MAXFILES 


FP 


INT 


BSAUE 


BLOAD 


BRUN 


UERIFV 



Figura 3 



cia ao uso do gravador cassete para armazenamento de mfor- 
ma 9 des; para o DOS, SAVE e LOAD representam a maneira de 
registrar e carregar programas em BASIC para um disco magnd- 
tico. 

COMO ALTERAR AS PALAVRAS DO DOS 

Como j i vimos, os comandos do DOS estSo registrados em 
mem6na RAM e, sendo assim, podemos alterar seus nomes 
atravOs do comando POKE. Considere, por exemplo, que quei- 
ramos traduzir o comando DELETE, que serve para apagar de- 
terminados titulos do disco magnltico. DELETE possui seis 
caracteres e, portanto, s<3 poderemos substituMo por uma pala- 
vra que tamWm tenha seis caracteres: APA CAR, por exemplo. 
Para fazer isto, devemos encontrar os enderecos onde estfo as 
letras do comando DELETE e troci-las pelas letras de seu subs- 
titute APAGAR. £ necessdrio lembrar que, ao registrar a ulti- 
ma letra (R), devemos faze-lo usando a segunda representa^fo 
da tabela de ASC II para a letra R. Feita a troca, o computador 
indicard um erro de sintaxe se tentarmos usar o comando DE- 
LETE, pois ele jd nffo existe mais. No entanto, com o comando 
AP AGAR que acabamos de criar, poderemos fazer exatamente 
o mesmo que fariamos com DELETE, uma vez que s6 muda- 
mos o seu nome e nao a rotina em linguagem de m2 quin a que 
realiza sua fun^ao. 

Se voce quiser criar um disco com esta mudan^a, basta ini- 
cializi-lo com o sistema operacional que acabou de ser altera- 
do, empregando o comando INIT, ou qualquer outro que quei- 
ra criar para substitui-lo. Caso voce execute o programa da fi- 
gura 2, apos efetuadas as modifica 9 oes, as palavras que foram 
alteradas j 2 irffo constar da lista de comandos, ocupando o lu- 
gar das antigas. 

0 programa listado na figura 4 foi feito justamente para fa- 
cilitar a altera^ao dos comandos do DOS. Basta que o usuario 
escreva o nome do comando que define a rotina que ele quer 
alterar e, em seguida, o novo nome que ele pretende usar para 
identificar aquele comando do Sistema Operacional de Discos. 

A altera^o 2 feita automaticamente. A unica restrifSo 6 
que os novos nomes deverao ter sempre o mesmo numero de 
caracteres que os antigos. 



Rudolf Horner Junior curse OSncie de Computaqao ne Unicamp e 6 s 6- 
cio da Potencial Software, firms que produz programas para micro com- 
puted ores em Campinas. SP. 
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180 


DATA 11 7. BLOAD. 122, BRUN. 126 




10 


TEXT x HOME « NORMAL x SPEED* 


90 


FOP C - 1 TO 10.-8<C> - 0s NEXT 




.UERIFV 






255 x DIM C*<28>.L«'28> 




x FOR C - 1 TO LEN <CHP>lB< 


190 


TEXT x HOME x NORMAL x SPEED* 




20 


PRINT "ALTERACOES DE COMANDOS 




C> - ASC < MIDP (CNP . C» 1 > > x 




255X PPINT “LISTA DOS COMAND 






D.O.S" « POKE 34.5* HOME 




NEXT 




OS D.O.S. “X PRINT 




30 


FOP « ■ 1 TO 28« READ B.C»<A> 


lOO 


LEN <CNP > > - B< LEN <CNP>> 


210 


FOP A - 43140 TO 43271 






«L<A> - 43140 ♦ Bx NEXT 




♦ 128 


220 


C - PEEK <A> x PRINT CHRP <C 






HOME x PRINT "DESEJA aLTEPaP 


110 


FOR C - L« A> TO L<A> ♦ LEN 




>» i IF C < 128 THEN 250 






COMANDO <S^N>? "xx GET Rp: IF 




<CUP)i PC* E C.B<C ♦ 1 - L‘ A * 


230 


L ■ L ♦ 1 « HThB 1 ♦ 10 * <L - 






R* - "N" THEN 190 




>l NEXT 




INI (L /‘ 4 > * 4 > 




50 


HOME x PRINT * PRINT t INPUT 


120 


CP(A> - CNP 


240 


IF PEEK <36> - 0 THEN PPINT 






"OUAL COMANDO^* "lCU*« PRINT 


130 


PRINT X PRINT I PRINT "PROMT 










i PRINT 




0. COMANDO TROCADO. “X PRINT 


250 


NEXT x PRINT 




60 


FOR A - 1 TO 28« .IF COP < > 




x PRINT X PRINT l PRINT "PRE 


260 


PRINT i PRINT "PARA REG I ST RA 






C*<A> THEN NEXT 




SSI ONE UMA TECLAx •• x x GET Rp 




R OS NOUOS COMANDOS. UOCED 




?e 


IF A > 28 THEN PRINT "NAO EN 




« GOTO 40 




EIXERA INICIALIZaR UM DISCO C 






CONTRADO ' ! " « PRINT I PRINT J 


140 


DATA ©• INIT. 4. LOAD. 8, SaUE. 




OM ESTE SISTEMA OPERACIONAL 






PRINT “ PRESS 1 ONE UMA TEC Lax 




12# RUN. 15. CHAIN. 20. DELETE 




ALTEPADO. " 






"»x GET Rp: GOTO 40 


150 


DATA 26- LOCK. 30. UNLOCK. 36. C 


270 


PRINT X PRINT 'NA INIC1ALIZA 




90 


INPUT "PARA QUAL? " X CN» l IF LEM 




LOSE. 41. READ. 45. EXEC. 49. WRIT 




CAO USE 0 COMANDO 'INIT* OUO 






<CN*> < > LEN < COP » THEN PRINT 




E 




SEU CORRESPONDENTS APOS AS 






x PRINT i PRINT "OUaNTIDaDE 


160 


DATA 54. POSITION. 62. OPEN. 66 




ALTERaCOES EFETUADAS." 






DE CARACTERES EPRADA " x PRINT 




• APPEND . 72 • RENAME . 78 • C AT ALOG 


280 


END 






x PRINT t PRINT "PRESS I ONE U 




.85. MON. 88. NOMON 


290 


REM ESTE PROGRAMA FOI ESCRI 






M TECLAx "o GET Ppx GOTO 40 


170 


DATA 93.PRP.96. IN4.99.MAXFI 




TO PaRh D.O.S. COM 48K DE Ra 










LES. 107. FP. 109. INT. 112. BSAUE 




M 


■ 














m 



Figura 4 
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A rquivos 
protegidos 



O programa que ora apresentamos 
pretende ilustrar a t^cnica de cria- 
9 S 0 e prote^So de arqurvos em mi- 
crocomputadores TK85 que, sendo da 
linha Sinclair, possui fun^Oes como 
DHSAVE e DHLOAD que facilitam bas- 
tante o uso de arquivos. Isto porque, 
al£m de gravar somente os dados, estas 
funcOes possibilitam uma r^pida leitura 
da nta cassete (em apenas cinco minu- 
tos, por exemplo, 6 possivel ter acesso a 
mais de 100 Kb de dados, tomando real- 
mente r£pido o ato de procurar fichas 
gravadas). 

Uni arquivo para computador 6 prati- 
camente igual a qualquer arquivo de es- 
critbrio. Voce pode char fichas, apaga- 
las e corrigi-las. A unica diferen^a 6 que, 
devido a limit a 9^0 de memdria destes 
pequenos equipamentos, voce terd aces- 
so a um bloco de fichas e n3o a todas as 
fichas que gravou, mas voce pode traba- 
lhar com um bloco e depois carregar o 
micro com um novo bloco. Desta forma, 
6 ilimitado o niimero de fichas que se 
podem gravar. 

CRIANDO E PROTEGENDO FICHAS 

Uma ficha nada mais t do que um 
conjunto de informa 90 es sobre uma 
pessoa ou outra coisa qualquer. Vejamos 
dois exemplos: 

a) NOME: Fulano; IDADE: 8 meses; 
SEXO:masc. 



Roberto Tannenbaum 



Voce pode transform ar 
seu TK85em um arquivo 
confidencial, ao qual 
apenas voce ter a acesso 
a partir de um codigo 
secreto. Neste artigo . 
revelamos as tecnicas 
de criacao e protec ao de 
fichas, exemplificando 
com um program a que 
Simula no computador um 
arquivo farmaceutico. 




b) PAIS: Brasil; MOEDA: cruzeiro; 

POPULAQAO: 120 milhdes 

Como fazer uma destas fichas no 
computador? £ muito simples: 10 LET 
AS = “NOME: FULANO IDADE: 8 
MESES SEXO: MASC.” (NEWLINE e 
RUN). Para ter acesso a esta ficha, basta 
usar PRINT AS (NEWLINE). Digamos, 
por£m, que vocS se lembre de que fula- 
no tern 9 e n3o 8 meses. 0 que fazer 
para corrigir a ficha? Digite a linha 10 
novamente, trocando 8 por 9. O unico 



problema t que nSo s 6 a ficha foi altera- 
da, mas tambe'm o programa nSo & mais o 
mesmo, pois esta nova linha 10 6 dife- 
rente da anterior. 

Muito bem. Agora tente este progra- 
ma: 10 INPUT AS (NEWLINE e RUN). 
Para entrar a ficha, digite-a e pressione 
NEWLINE. Para corrigir. repita o passo 
anterior. Este exemplo mostra que para 
fazer fichas i prefenvel usar INPUT a 
LET, pois. assim, podemos modificar a 
ficha sem alterar o programa e, desta 
forma, grava-lo uma unica vez. 

E para ampliar o arquivo de 1 para 
30 fichas, o que fazer? Pode-se pensar 
em usar 20 INPUT BS, 30 INPUT CS 
etc., um para cada ficha. No entanto, 
isto 6 im possivel, pois uma string possui 
s 6 uma letra para identifici-la: portanto, 
nSo teriamos 30 fichas disponiveis. Po- 
de-se pensar em usar matrizes: AS 
(30,100) - 30 6 o niimero de fichas e 
100 o tamanho de cada uma. Isto tam- 
bem nSo funciona, uma vez que o TK 
grava apenas matrizes de uma dimensSo. 
A unica S 0 IU 9 S 0 6, portanto, DIM AS 
(3000). Terfamos AS(1) at* AS(100) 
como primeira ficha, ou AS (101 TO 
200) para a segunda, ou ainda AS (1+ 
100*N TO 100+100*N) para a endsima 
ficha. Ao gravarmos AS, estaremos gra- 
vando todas elas juntas. 

Vamos passar agora para o assunto 
proteqdo de blocos. Se no nosso exem- 
plo tiv^ssemos dimensionado AS (3010), 
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teriamos uma sobra de dez elementos, 
A$(3001 TO 3010), que podem ser 
preenchidos com quaisquer caracteres 
atrav^s de um comando INPUT. Esses 
caracteres podem funcionar como um 
cddigo de protegdo: basta entrar com 
um codigo de acesso antes da leitura de 
um bloco. Logo apds a leitura, esse cd- 
digo de acesso £ comparado ao de prote- 
9 ^ 0 , AS (3001 TO 3010). Se os dois cd- 
digos forem diferentes, podemos apagar 
todas as fichas com RUN ou CLEAR. 
Assinr, sd quern gravou o cddigo de pro- 
te^So saberd o codigo de acesso correto, 
protegendo, assim, o bloco. 

O PROGRAMA 

O programa utiliza estas t^cnicas que 
acabamos de ver, e mostra sua eficiencia 
na pratica. Atravds dele, voce manipula 
um arquivo farmaceutico, ou seja, voce 
pode fichar vanos remddios e suas prin- 
cipals caracten'sticas: nome (£ evidente), 
laboratono que o produziu, indicates, 
contra-indica^des e posologia. 

Cada bloco £ constituido de 15 fi- 
chas, com espa^o reservado para o cddi- 
go de prote^o. O computador trabalha 
com apenas um bloco por vez. Por 
exemplo, se voce desejar fichar 50 renW- 
dios. terd que gravar quatro blocos 
(15+15+15+15) - n£o se preocupe com 
isto, pois em menos de trds minutos vo- 



ce poderd listar todos os blocos. Para 
mampular o arquivo, devem-se utilizar 
os cddigos de opera^o que aparecerfo 
no video ao executar o programa. Estes 
cddigos s3o : 

1) Fichar os nomes - tecle 1 (NEWLI- 
NE) e o computador listard os nomes 
dos 15 renWdios que compdem o bloco. 
O niimero do lado esquerdo de cada 
nome £ o niimero correspondente dque- 
la ficha. Este niimero £ importante, pois 
sera usado para apagar. ler ou corrigir a 
ficha correspondente. Caso a ficha esteja 
em branco ou o item nome nSo tenha 
sido preenchido, aparecerd somente o 
niimero da ficha seguido de dois pon- 
tos (:). Para voltar aos cddigos de opera- 
?ao, digite qualquer tecla. 

2) Fazer uma ficha - para preencher 
uma ficha em branco tecle 2 (NEWLI- 
NE). Apareceri a pergunta: QUAL O 
NOME? Digite o nome e depots NEW- 
LINE. Responda as outras perguntas da 
mesma maneira. Quando a ficha estiver 
pronta, ela ficara no video at£ qualquer 
tecla ser pressionada. Se voce tentar fa- 
zer a 16? ficha (so existem 15), o 
computador mandara armazenaro bloco. 

3) Apagar uma ficha — para apagar uma 
ficha, tecle 3 e NEWLINE. Para respon- 
der qual deve ser apagada, tecle o niime- 



ro correspondente e NEWLINE. O 
niimero da ficha £ aquele do cddigo 1 . 

4) Corrigir uma ficha - tecle 4 (NEW- 
LINE). Entre com o niimero da ficha a 
ser corngida (e NEWLINE). Para indicar 
qual item deve ser corngido, tecle a pri- 
meira letra do item, por exemplo: tede 
P para corrigir a POSOLOGIA. Digite 
a nova posologia e NEWLINE. Para cor- 
rigir outro item pressione S, ou entfo 
N. A ficha corrigida ficar4 no visor at£ 
que alguma teda seja acionada. 

5) Gravar um bloco - tede 5 (NEWLI- 
NE). Apareceri na tela a seguinte men- 
sagem: QUAL O CODIGO DE PROTE- 
CAO? Entre com o cddigo digitando, no 
mdximo, nove caracteres (e NEWLINE). 
Pressione PLAY-REC no gravador e 
NEWLINE para miciar a grava^o (su- 
pde-se que a fita esteja no lugar certo e 
que os fios estejam ligados corretamen- 
te). Se a gravafSo for bem-sucedida, o 
computador apagard todas as fichas, for- 
necendo assim 15 novas fichas. Caso 
contririo, aparecerd o erro cometido. 

6 ) Carregar um bloco - digite 6 e 
NEWLINE. Responda qual £ o cddigo de 
acesso, digitando depois NEWLINE (este 
deverd ser igual ao cddigo de prote^do do 
bloco que serd carregado). Pressione 
NEWLINE e PLAY no gravador. Caso a 
leitura seja perfeita e o cddigo de acesso » 






Assine 



Informatica & 
Administracao 



1 — 






As informagoes 






estao 
aoseu alcance 
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% 



m 



m 



.^ac -Simile: copl 
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(Se vocd ndo quiser cortar sua revista, tire uma xerox do cupom abaixo) 



empresa 



protissao/cargo 



endere^o para remessa 



cidade. 



cep 



estado . 



Assirtotura anual 

n Informdtica & Administrate Cr$ 10.000,00 

LJ Micro Sistemas Cr$ 1 5.000^00 

n Informdtica & Administrocdo + Micro Sistemas Cr$ 22.000^00 



Junte a estes dados cheque nominal d: 

ATI Editora Ltdo. 

Al. Gabriel Monteiro do Silvo, 1227 — Sdo Paulo — SP — CEP 01441 
Tel. ; (011) 853-3800. 

R. Visconde Silvo, 25 — Rio de Janeiro — RJ — CEP 22281 
Tel.: (021) 286-1797, 246- 3839 e 266-0339 
(seu recibo serd enviado pelo correio) 
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ARQUIVOS PROTEGIDOS 



10 REM ROBERTO TANNENBAUM 
20 FAST 

30 DIM A$ (10570) 

40 LET Z-10570 
50 LET Z*-"A" 

60 LET B$=“NOMEs{ 17) LAB: (38) 
INDICACOES: (277) CONTRA- INDICAC 
OES: (206) POSOLOGIA: ( 118) " 

70 FOR F-0 TO 14 
80 LET A$ (10+F*704 TO 713+F*70 
4)«B$ 

90 NEXT F 
100 SLOW 
110 CLS 

120 PRINT "CODIGOS DE OPERACAO 

* 130 PRINT "1-LISTAR OS NOMES" 

140 PRINT "2-FAZER UMA FICHA" 
150 PRINT " 3-APAGAR UMA FICHA" 
160 PRINT "4-CORRIGIR UMA FICHA 

170 PRINT "5-GRAVAR UM BLOCO" 
180 PRINT "6 -CARRE GAR UM BLOCO* 
190 PRINT "7-LISTAR UM BLOCO" 
200 PRINT "8-LER UMA FICHA" 

210 INPUT C ... 

215 IF C<1 OR C>8 THEN GOTO 210 
220 CLS 

230 GOTO C*1000 

1000 PRINT "OS NOMES DESTE BLOCO 
SAO : " » » # 

1010 FOR D=0 TO 14 

1020 PRINT D; TAB 2 ;A$ ( 14+D*704 T 

O 31+D*704) 

1030 NEXT D 

1040 IF INKEY$=" " THEN GOTO 1040 

1050 GOTO 110 

2000 FOR D=0 TO 14 

2010 IF A$(10+D*704 TO 713+D*704 

)=B$ THEN GOTO 2060 

2020 NEXT D 

2030 PRINT "ARMAZENE ESTE BLOCO 
ANTES DE FAZER UMA NOVA FICHA" 
2040 PAUSE 500 
2050 GOTO 110 

2060 FOR G-2110 TO 2230 STEP 30 
•2070 GOSUB G 
2080 CLS 
2090 NEXT G 
2100 GOTO G 



Arqui vo farm a ceutico 



2110 PRINT "QUAL O NOME?" 

2120 INPUT A$(15+D*704 TO 30+D*7 
04) 

2130 RETURN 

2140 PRINT "QUAL O LABORATORIO? 
2150 INPUT A$( 36+D*704 TO 41+D*7 
04) 

2160 RETURN 

2170 PRINT "QUAIS AS INDICACOES? 



2180 INPUT A$ (85+D*704 TO 329+D* 
704) 

2190 RETURN 

2200 PRINT "QUAIS AS CONTRA INDI 
CACOES?" 

2210 INPUT A$(380+D*704 TO 553+D 
*704) 

2220 RETURN 

2230 PRINT "QUAL A POSOLOGIA?" 
2240 INPUT A$(596+D*704 TO 713+D 



*704) 

2250 RETURN 

2260 PRINT AT 0 , 0 ;A$ ( 10+D*704 TO 
713+D*704) 

2270 IF INKEY$=" " THEN GOTO 2270 
2280 GOTO 110 

3000 PRINT "QUAL FICHA SERA APAG 
ADA?" 

3010 INPUT D 

3020 LET A$(10+D*704 TO 713+0*70 

4 ) =B$ 

3030 GOTO 110 

4000 PRINT "QUAL FICHA SERA CORR 
IGIDA?" 

4010 INPUT D 
4020 CLS 

4030 PRINT "QUAL ITEM SERA CORRI 
GIDO?" 

4040 PAUSE 50000 
4050 LET C$=INKEY$ 

4060 CLS 

4070 LET X=2110*(C$="N")+2140*(C 
$="L")+2170*(C$="I")+2200*(C$ a "C 
")+2230* (C$="P“) 

4075 IF X THEN GOSUB X 



4080 CLS 

4090 PRINT "MAIS ALGUMA CORRECAO 
? (S/N) " 

4100 PAUSE 5000 

4110 IF INKEY$="S" THEN GOTO 402 



0 

4120 GOTO 2260 

5000 PRINT "QUAL O CODIGO DE PRO 
TECAO?" 

5010 INPUT AS (1 TO 9) 

5020 CLS 

5030 PRINT "PRESSIONE PLAY-REC E 
NEWLINE" 

5040 PAUSE 40000 
5050 CLS 

5060 LET E-USR 9008 



5070 SLOW 

5080 IF E-0 THEN GOTO 5110 

5090 PRINT "ERRO ";E;“ TENTE NOV 

AME*’TE" 

5100 GOTO 5020 

5110 PRINT "BLOCO GRAVADO" 

5115 PAUSE 200 
5120 RUN 

6000 PRINT "QUAL O CODIGO DE ACE 
SSO?" 

6010 INPUT DS 
6020 CLS 

6030 PRINT "PRESSIONE NEWLINE E 
PLAY" 

6040 PAUSE 40000 
6050 LET E-USR 9189 






EN CLEAR 
6070 SLOW 
6080 CLS 

6090 IF E=0 THEN GOTO 1000 

6100 PRINT "ERRO ";E;" TENTE NOV 

AMENTE" 

6110 GOTO 6020 

7000 FOR F=0 TO 14 

7010 PRINT AS (F*704+10 TO F*704+ 



713) 

7020 PAUSE 120 



7030 CLS 
7040 NEXT F 
7050 GOTO 110 

8000 PRINT "QUAL A FICHA?" 

8010 INPUT D 

8020 CLS _ 

8030 PRINT A$(10+D*704 TO 713+D* 



704) 

8040 PAUSE 40000 
8050 GOTO 110 



NONE: 


LAB: 


INDICATES: 




CONTRA-INDICAC0ES: 




POSOLOCIA: 





Figura I 



esteja correto, aparecerdo os nomes dos 
remddios deste bloco; caso contrdrio, 
aparecerd a in dica 9 do- 2/6090 no canto 
do video. 

7) Listar urn bloco — digite 7 (NEWLI- 
NE). O computadoi fard uma rdpida hs- 
tagem de todas as fichas, demorando 
dois segundos em cada uma. Para parar 
cm uma delas pressione BREAK; para 
continuar, CONT. 

8) Ler uma ficha - se voce desejar ape- 
nas ler uma ficha, digite 8 (NEWLINE). 



Para indicar qual delas, entre com o 
numero correspondente e NEWLINE. 
Ela permanecerd no video por 15 minu* 
tos ou at£ ser pressionada qualquer tecla. 

SSo estes os c6digos de opera 9 ao. 
Podem parecer confusos, mas a melhor 
forma de entende-los d digitando todo o 
programa e colocando-o em a^do. Voce 
verd que ele d realmente fdcil de operar. 

Tome cuidado apenas ao entrar com 
a linha 60. O numero entre parenteses 
equivale ao numero de espagos a ser 
digitado. Para verificar se voce digitou a 
linha corretamente, use PRINT BS 
(NEWLINE): o resultado deverd ser a 
ficha que estd na figura 1. Note que 
todos os itens estffo na pnmeira coluna, 
exceto LAB:. Se o resultado for diferen- 
te, fa 9 a as conefOes necessdnas. Outra 
coisa: se o programa se interromper (ca- 
so voce coloque dados errados), pressio- 
ne GOTO 110 e NEWLINE para reini- 
ciar. 



£ aconselhavel gravar blocos com as 
15 fichas completas, pois voce gastara o 
mesmo tempo e a mesma memdna que 
para gravar um bloco com uma s6 ficha 
preenchida. Ainda aconselho gravar so- 
bre um bloco que ndo tenha mais utili- 
dade. Por exemplo: voce carrega o 
computador com um bloco, faz algumas 
coirefOes em algumas fichas. Ao gravar 
o bloco corngido, fa 9 a-o sobre o ndo — 
corngido, aquele que ndo tern mais utili- 
dade. £ bom ter uma fita de seguran 9 a, 
copia da original, e que esteja sempre 
atualizada. 

E para terminar, uma observa 9 do: pa- 
ra 48 Kb de memdna, o numero de fi- 
chas de cada bloco pode chegar a 60. £ 
s6 fazer as altera 9 Ces necessdnas. ■ 



Roberto Tannenbaum 6 estudante de Enge- 
nharia na Escola Polit4cnica da USP e tern por 
hobby e programapSo de calculadoras e 
micros. 
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ENTREGA IMEDIATA 



Simples face/simples densidade 
26 setores 

128 bytes/ sector. 8polegadas 



Simples face/ dupla densidade 
Nio setorizado - n&o formatado 
8 polegadas 



Dupla face/dupla densidade 
N4o setorizado - nSo formatado 
8 polegadas 



Simples face/dupla 
densidade 40 tnlhas 5 1 



4 polegadas 



Dupla face/dupla 

densidade 40 trilhas 51/4 polegadas 



DE MANAUS PARA A MEMPHIS 
DA MEMPHIS PARA TODO O BRASIL 






















SUCESU-SC promove 



Congresso 




Mais um evento na area de 
Informatica reunira, em am- 
plo debate, profissionais do 
ramo. autoridades, intelec- 
tuais. usuarios. estudantes e 
o publico em geral: o VI Con- 
gresso Regional e III Feira Na- 
cional de Informatica. a se 
realizarem de 15 a 20 de maio. 
no Centro de Convengoes da 
Citur. em Balneario Cambo- 
riu. Santa Catarina, tendo co- 
mo tema "Informatica a ser- 
vigo da comunidade". 

A promogao e da SUCESU- 
Nacional e a realizagao da 
SUCESU-SC. com o patroci- 
nio oficial da SEI. O VI Con- 
gresso tera conferences. pai- 



Regional 

neis e sessoes tecnicas. pro- 
curando dar aos participantes 
uma visao atuai e futura das 
aplicagoes dos computadores 
nos diversos campos de ati- 
vidade. 

Os estandes da III Feira 
ocuparao uma area de 1.340 
metros quadrados. estando 
ainda reservado um espago 
para as universidades da re- 
giao que desenvolvem proje- 
tos na area e tenham interes- 
se em divulga-los. As sessoes 
para estudantes, jovens e cri- 
angas serao desenvolvidas 
num pavilhao anexo ao da 
Feira. com area de 300 me- 
tros quadrados. 



Mais uma 

Inaugurada recentemente 
no Rio de Janeiro, a Data- 
micro Informatica Ltda. esta 
comercializando computado- 
res Color 64. TK 83 e 85 e os 
CPs 300 e 500. alem de peri- 
fericos. suprimentos, progra- 
mas aplicativos. liyros e revis- 
tas especializados, cursos e 
treinamento de pessoal. Na 



loja no Rio 

area de cursos destacam-se o 
de Aplica g6o do Microcom- 
putador na Engenharia e Mi- 
crocomputador para Crianga. 
ambos oferecidos em diver- 
sos horarios. A Datamicro fica 
na Rua Visconde de Piraja. 
547 — sobreloja 211. Ipane- 
ma, Rio de Janeiro — RJ. CEP 
22410. tel.: (021) 274-1042. 



Dois novos Apples no mercado nacional 




A Link, uma empresa com experience em consultoria e 
desen voivimento de software, langa agora seu microcomputador. 
o Link 323. compativel com Apple II. Definido como um micro 
profissional. o Link 323 e comercializado numa versao padrao 
composta por CPU com 64 Kbytes de memoria RAM — expan- 
sivel ate 512 Kbytes — e 12 Kbytes de ROM. teclado com letras 
maiusculas e minusculas. monitor de video de fosforo verde, 
interface paralela para impressora. dois drives para disquetes de 
5 1 /4" e dois sistemas operacionais: CP/M e DOS. 

Nesta versao o prego sugerido pelo fabricante para comer- 
cializagao e de Cr$ 4 milhdes e 800 mil. e acompanham os pro- 
gramas Wordstar. Calcstar e Datastar. todos da software-house 
Microstar, com a qual a Link mantem contrato para fornecimento 
de software Alem destes programas, a propria Link esta desen- 
volvendo pacotes para controle financeiro. mercantil e cadastro, 
que estarao disponiveis a partir de margo. O Link 323 tern garantia 
de um ano e o comprador recebe gratuitamente um curso de 
15 horas, na propria Link Center, sobre os recursos do equipa- 
mento O micro da Link sera comercializado em lojas especia- 
lizadas. empresas de consultoria e bureaux de servigos, e no 
Mappin. em Sao Paulo. 




Exato 



Com um investimento de cerca de Cr$ 500 milhdes. a CCE 
entra no mercado de microcomputagao langando o Exato, compa- 
tivel com o Apple americano. Ele opera com processador 6502 
e sua versao basica e composta por CPU com teclado com parte 
numerica mdependente e teclas de fungao com cores. 48 Kbytes 
de memoria RAM — expansivel ate 128 Kbytes — . 12 Kbytes de 
ROM e oito slots de expansao com um conector extra para placa 
Pal-M. Nesta versao. o prego do Exato 6 de CrS 1 milhao 180 mil 
e estara disponivel em 600 pontos de venda. 

A produgao inicial da CCE sera de 300 unidades por mes e 
juntamente com o microcomputador a CCE esta langando os 
cartoes de expansao de memoria com 16 Kbytes de RAM. o con- 
trolador para ate duas unidades de acionadores de disquetes de 
5 1 /4". a interface para impressora paralela e o cartao Pal-M para 
acoplar o micro a televisores comuns preto e branco ou a cores. 
A CCE tambem esta colocando a disposigao de usuarios uma 
linha telefonica para consultas e esclarecimentos que podem 
ser feitos pelo tel.: (011) 265-2199 — Sao Paulo. 
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Sisco em 

Continuando o seu piano 
de interiorizagao. a Sisco- 
Sistemas e Computadores 
S/A inaugurou uma filial em 
Campinas. Sao Paulo. A infra- 
estmtura da filial Sisco-Cam- 
pinas dispoe de hardware, 
software e treinamento t6cni- 
co para clientes. La tambem 



Campinas 

ja sao encontrados varios sis- 
temas para areas administra- 
tivas e financeiras. inclusive 
em controle de processos A 
Sisco de Campinas fica na 
Rua Barao de Paranapanema. 
146, bloco B. 5° andar. cj. 51 / 
52. tel.: (0192) 52-4765. 



Software 
para engenharia 



Micro Sistemas fez urn le- 
vantamento entre algumas 
lojas de microcomputadores 
em Sao Paulo para ver o que 
existe de software na area de 
Engenharia. Nao mais de dez 
programas foram encontra- 
dos. a maioria para os equi- 
pamentos da linha Sinclair e 
para o micro HP-85, da Hew- 
lett Packard. 

Se voce tern um micro ou 
pretende adquirir um para 
usar em Engenharia. ai vao 
algumas dicas de software. 
Para os microcomputadores 
da linha Sinclair encontramos 
os seguintes programas: C6I- 
culo de viga contlnua. da Mi- 
crosoft. Cr$ 11.790.00 (prego 
minimo): CAIculo de EI6trica. 
CrS 13.800.00. Cilculo de Hi- 
drdulica, Cr$ 13.800.00 e Con- 
trole de Obras, Cr$ 19.800.0Q 
da Baronsoft. Para o HP-85 
sao os seguintes os progra- 
mas disponiveis nas lojas: Por- 
plan. que analisa estruturas 
planas com carreqamento 



atuando em seu proprio pia- 
no. Cr$ 740.000.00; Grelha. 
analisa estruturas planas com 
carregamento atuando na di- 
regao normal ao seu piano. 
Cr$ 510.000.00; Vicont, anali- 
sa vigas continuas. Cr$ ... 

189.000. 00; e Progeo, deter- 

mina as propriedades geome- 
tricas de segoes de forma 
qualquer. CrS 94.000.00. To- 
dos estes programas para o 
HP-85 sao da software-house 
Prosystem. Para o CP-500, da 
Prologica, encontramos os 
programas Rede Pert/CPM. 
da LHM, Cr$ 190.000.00; e 
para os sistemas 600 e 700. 
da Prologica. e para o 1-7000. 
da Itautec. se encontra nas 
lojas um programs para Orga- 
mento e Cronograma de 
Obras, da Ramo. CrS 

377.000. 00. 

Participaram da pesquisa 
as lojas MicroShop. Compu- 
shop, Computique. Compu- 
terland e I mares. 




As novas fitas 
da Softkristian 



A Kristian Eletronica esta 
langando. sob a marca Soft- 
kristian. 12 novas fitas para 
micros com logica Sinclair, 
entre jogos. utilitarios e a fita 
virgem LD-20, utilizando ma- 
terial Ampex. 

As fitas de jogos sao as 
seguintes: Viagem Galictica 
(com tres jogos). Grand Prix 
(dois jogos). Contatos Imedia- 
tos (quatro jogos). Mr. Kong 
(tres jogos). Boeing 787 (um 
simulador de voo e mais dois 
jogos). Terceira Dimensao 
(quatro jogos), Velho Oeste 
(quatro jogos) e Grande Sa- 
botagem (quatro jogos). to- 
dos para 16 Kbytes de me- 
moria. 

Os utilitarios compreendem 



Z-80 — Monitor Assembler 
(permite a programagao em 
mnemonicos Z80). SKBUG (di- 
sassembler e monitor em lin- 
guagem de maquina) e ROT 3 
(cinco rotinas prontas para 
usar em programas em BASIC: 
High Speed, Super Scroll. CLS 
Espiral, Rotina Tape e Faster. 

Todos esses programas sao 
em linguagem de maquina e 
as fitas incorporam o Azimuth 
Regulating System, destinado 
a otimizar o carregamento. 
Essas fitas podem ser encon- 
tradas nos 100 revendedores 
da empresa em todo o pais, 
ou na propria Kristian, que 
fica na Rua da Lapa, 120. Gr. 
505, CEP 20021, Rio de Janei- 
ro — RJ. tel.: (021) 252-9057 



Banco de dados para Sinclair 

TK-FILE e o sistema de Banco de Dados desenvolvido em lin- 
guagem de maquina pela Multisoft e que esta a disposigao dos 
usuarios da linha TK da Microdigital. Este programa. possibilita a 
definigao das informagoes que serao manipuladas. bem como sua 
forma de impressao, permitindo a classificagao e selegao por 
campos ou Chaves, inclusao, alteragao, exclusao e consults de 
fichas. O TK-FILE pode ter diversas aplicagoes que vao desde uma 
simples lista telefdnica ate um complexo controle de estoque ou 
mesmo um Banco de Dados para mala-direta 



j STRINGS^ 



★ Com a instalagao dos postos Rio de Janeiro (Rua Visconde 
de Piraja. 414 — Conj. 606. tel.: 227-1002) e Porto Alegre (Av. Bor- 
ges de Medeiros. 410. Bloco II. 11° andar. Conj. 1108). a Micro- 
digital da inicio a sua rede nacional de assistencia tecmca. * Com 
novo enderego (Av. do Contorno. 6048. Savassi. Belo Horizonte 
— MG, tel.: (031) 225-0644). a Kemitron esta langando diversos 
novos perifericos para o seu micro Naja. * A Potencial Software. 
de Campinas, esta langando o volume dois do seu curso de BASIC 
Passo a Passo. no qual o professor e o proprio micro Apple. 

★ A Compucenter Microinformdtica tern novo diretor tecnico: 
Valter Hitelman. ★ A Softec. fabricante do EGO. micro de 16 bits 
compativel com IBM-PC. inaugurou suas novas instalagoes indus- 
trial em Sao Paulo, com cerca de 1 mil m2 e capacidade para 
produzir ate 500 unidades /mes. * Estava prevista para a se- 
gunda quinzena de janeiro a chegada as lojas das primeiras uni- 
dades do T Color (compativel com TRS-Color) e Sysdata III (com- 
pativel com TRS-80 Mod. Ill), ambos da Sysdata. com os seguintes 
pregos. respectivamente: Cr$ 380 mil e Cr$ 2 milhoes 700 mil. 



★ A Codimex ja esta fornecendo as primeiras unidades de dis- 
quete face simples /densidade dupla de 5 1 /A", alem de pro- 
gramas aplicativos nas areas financeira. comercial, de engenharia 
e medica. tudo para o Codimex 6809 it A loja Micro Process 
(Alameda Lorena, 1310. tel.: (011) 64-0468, Sao Paulo — SP) esta 
criando um ponto de encontro de engenheiros. arquitetos e agrd- 
nomos para o fornecimento e intercambio de equipamentos e 
programas para essas areas. * Ja esta chegando ao mercado o 
videogame VJ 9000. da Dismac. A empresa ja exporta calcula- 
doras, sobretudo para Argentina e Mexico, e este ano planeja 
iniciar a venda de micros para o exterior. ★ A Itautec desenvol- 
veu e esta comercializando para o seu micro 1-7000 a planilha 
eletronica de calculo Calctec * A Cobra comemora este ano 
os seus 10 anos de existencia com o langamento de diversos 
produtos, entre eles um micro de 32 bits totalmente desenvolvido 
pela empresa. it A Control Data tern pianos de instalar no Brasil 
duas fabricas em associagao com empresas nacionais: uma de 
disquetes e outra de computadores medios tipo Cyber 815 e 825 » 
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Assespro firma 
convenios de soft 

A Associagao Brasileira das Empresas de Servigos de Infor- 
matica — Assespro encerrou 1983 com a assinatura de tres im- 
portantes convenios para fomentar o desenvolvimento e a comer- 
cializagao de software nacional: com as multinacionais Control 
Data e IBM. e com a estatal Digibras. 

O convenio com a Control Data, denominado Programs de 
Apoio ao Desenvolvimento e Comercializagao de Programas de 
Computador no Brasil — Progsott, compreende o desenvolvi- 
mento de software de base, de apoio e aplicativo para uso na 
Rede Cybernet ou em computadores da Control Data. Os pro- 
gramas poderao tambem ter versoes para outros fabricantes que 
nao a Control Data, dependendo de contrato especifico. 

Ja o convenio com a IBM. que recebeu o nome de Programa 
Tdcn ico-Co mercia I de Interesse Reciproco Assespro-IBM. preve 
a realizagao de nove projetos: Desenvolvimento e Comerciali- 
zagao de Programas-Produto, Modernizagao do Parque Compu- 
tacional dos Bureaux de Servigos. Indicagio de Empresas para 
Servigos Identificados pela IBM. Comercializagao de Programas 
pela IBM. Divulgagao de Programas-Produto em Catdlogo da IBM, 
Demonstragoes em Equipamentos IBM. Tradugao de Manuals da 
IBM. Tradugdo e Versao de Programas IBM. Atualizagio T6cnica. 

Quanto ao Programa Nacional de Financiamento para a 
Comercializagao de Programas de Computador — Finsoft. assi- 
nado com a postenormente extinta Digibras. este ainda tern uma 
chance de se concretizar. de acordo com o presidente nacional 
da Assespro. Jose Maria T. C. Sobrinho: a sua transference para 
o BNDES. Ate meados de janeiro. contudo, a Assespro nao dis- 
punha de uma posigao oficial do governo a respeito desse 
convenio. 



Rio e Sao Paulo tem 
Micro-Festival 84 



Solugoes, tecnologia e no- 
vas aplicagoes estarao pre- 
sentes no Micro-Festival 84. 
de 21 a 24 de margo no Pala- 
cio das Convengoes do Par- 
que Anhembi. em Sao Paulo; 
e de 04 a 07 de julho no Hotel 
Nacional, no Rio de Janeiro. 
Este evento e promovido pela 
Guazzelli Associados Feiras e 
Promogoes e com orientagao 



Ja se encontram disponi- 
veis no mercado os seguintes 
programas para o microcom- 
putador Digitus: Pacote de 
Comunicagao. que permite a 
utilizagao da tecnologia de 
comunicagao serial de dados 
para conversar com os outros 
usuarios do DGT-1000 (para 
isso e necessario. alem do mi- 
crocomputador Digitus, uma 



tecnica da Compucenter Mi- 
croinformatica. 

A feira ocupara uma area 
de 12 metros quadrados que 
serao locados aos exposito- 
rs com os respectivos estan- 
des ja montados. Simultanea- 
mente. ocorrerao segoes tec- 
nicas em auditbrios. abordan- 
do os principal temas rela- 
cionados com a microinfor- 
matica. 

interface RS232 e um mo- 
dem); Digicalc. que e total- 
mente compativel com o Visi- 
calc; Demofita I ou Demodis- 
co I. jogos em linguagem de 
maquina; Demofita II ou De- 
modisco II, 12 jogos em BA- 
SIC. e Digfile. um sistema de 
Banco de Dados que permite 
o armazenamento de qualquer 
tipo de informagao. A Digitus 
tambem tem programas para 
Banco de Dados. Controls de 
Estoque, Processador de Tex- 
tos e Editor Assembler 



Soft para Digitus 



A melhor casa do Rio para 

Os executivos que vem aoRio, principalmente a negocios, agora podem contar com 
uma casa que transforma sua rapida passagem Dela cidade maravilhosa em 
momentos inesqueciveis. Em pleno coracao de Copacabana, estamos de bracos 
ibertos e prontos para oferecer dos mais simples aos mais sofisticados 
modelos e acessorios que fazem nossa atividade tao excitante e tao imprescindivel 



nosdiasatuais. 

Oferecemos o que existe de melhor, em termos de qualidade. E a preco e condicoes de 
pagamento (e, nos fmanciamos) que nenhuma outra casa do ramo oferece. 

Nossa filial da Rio Branco tambem tem o mesmo atendimento e o mesmo preqo. 
Quando voce estiver no Rio, passe bons momentos conosco. Nossos 
preqos sao tao em conta que de repente a diferenpa da para cobrir seus custos de 
passagem eestadia. 

Voce e sua empresa vao descobrir como e fantastico, e barato, o mundo dos 
microcomputadores. 

Veja esta oferta ai ao lado, por exemplo. 

DGT-1000 

Agora voce tem um microcomputador modular com design modemo expansivel 
del6a64k. 

A interface de video colorido e uma de suas oppoes, e lhe permite usar ate 1 6 cores 
diferentes no mundo de resolupao grafica. Voce tambem pode movimentar no 
video ate 32 areas diferentes. 

Aunica coisa que nao e expansivel no DGT-1000 e o preco na Clappy: o menor 
do mercado. 

Venha conhecer esta nova conquista da DIGITUS. 



Copacabana: Rua Pompeu Loureiro, 99 JET* 

Centro: Av. Rio Branco, 1 2 • loj a e sobreloj a • Tels.: (021) 
222-5517 • 234-0214 • 264-2096 • 253-3395 • 222-5721 
• 257-4398 • 236-7175 
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Promoqao 

MSlMicromaq 
entrega 

Color 64 




Luiz Alberto de Souza Malafaia. vencedor da promogao 
MICRO SISTEMAS/Micromaq. recebeu o seu premio — um 
microcomputador Color 64 com 64 Kbytes de memoria e 
mais 64 programas aplicativos — no dia 16 de dezembro na 
sede da loja carioca. localizada na Rua Sete de Setembro, 
92,loja 106. O equipamento e os programas foram ofereci- 
dos pela Industria de Computadores Novo Tempo Ltda. 
Malafaia.que mora no bairro de Irajd. no Rio de Janeiro, e 
programador de computadores. trabalhando na empresa 
Gura Alimentos e no Inamps. 



SEI avalia 

ASEI recebeu ao todo 
nove projetos para fabricagao 
de superminicomputadores no 
Brasil. Das empresas que 
apresentaram projetos a SEI. 
apenas a Cobra. SID e Labo 
se utilizarao de tecnologia na- 
cional. O comunicado da Se- 
cretary de Informatics sobre 
os projetos dos superminis 
nao faz distingao. a priori, en- 
tre os de tecnologia nacional 
e aqueles com tecnologia 
comprada no exterior. O re- 
sultado final dos projetos 
aprovados sera divulgado em 
30 de margo proximo. As ou- 
tras empresas que apresenta- 
ram projetos para desenvolvi- 



superrmnis 

mento dos superminicompu- 
tadores foram: Itautec. com 
tecnologia da Formation ame- 
ricana; Edisa. tecnologia ja- 
ponesa do Fujitsu serie V; 
Sisco /Hidroservice. com tec- 
nologia da IPL — Systems, 
compativel com os perifericos 
dos computadores 4331 e 
4341 da IBM; o consorcio for- 
mado pelo Bradesco, Cia. Do- 
cas de Santos e Medidata. 
com tecnologia americana da 
Digital Equipment Corpora- 
tion e a ABC Sistemas com 
dois projetos. um com tecno- 
logia Hewlett Packard e ou- 
tro com tecnologia da Honey- 
well Bull. 



Monk adere 
a linha Apple 

Apos dois anos e meio dedi- 
cados ao desenvolvimento de 
software aplicativo para a li- 
nha TRS-80. a Monk Microin- 
formatica passa agora a atuar 
tambem na linha Apple. Para 
estes equipamentos. a empre- 
sa acaba de langar o Data 
Master, sistema gerenciador 
de banco de dados, o SMD — 
Sistema de Mala Direta, o Vi- 
sibank, programs em lingua- 
gem de maquina para cadas- 
tro e controle de langamentos 
em contas bancarias. Pagrec 
— Controle de Contas a Pa- 



gar e a Receber, Redator, sis- 
tema de processamento de 
textos, e o Sistema de Con- 
trole de Estoque Comercial, 
alem de varios jogos. 

Para as maquinas compatF 
veis com o TRS-80. a Monk 
langou o SCE H — Sistema 
de Controle de Estoque Indus- 
trial, que apresenta uma novi- 
dade: a impressao de relatd- 
rios e feita simultaneamente 
ao uso geral do sistema, dei- 
xando o comando do teclado 
livre para o usuario. mesmo 
com a impressao em anda- 
mento. Esse recurso devera 
ser implantado ao poucos em 
todos os programas desenvol- 
vidos pela Monk para a linha 
TRS-80. ■ 




niEirus 



CPU , monitor, 2 drives, 

Entregamos em todo Brasil pelo reembolso Vang. 









£ sempre bom ter uma cdpia de reserva. Para os usuarios da /inha T RS-80, 
um utilitario que reproduz programas em fita gravados no formato SYSTEM 



Copsys 

Daniel A ugusto Martins 



O monitor residente na memoria 
ROM dos microcomputadores 
compativeis com o T RS-80 
permite a reprodin^o de pro- 
gramas gravados em BASIC atraves de 
comandos simples. CLOAD X, onde X 
e um alfanumerico qualquer identifican- 
do o programa, permite ler uma fita, isto 
e. carregar um programa de nome X na 
mem6na do micro. Para reprodu^ao de 
um programa, o comando CSAVE X 
transfere o que esta residente em me- 
m6ria para a fita no gravador, atribuin- 
do-lhe o nome X para posterior ldenti- 
fica^ao pelo comando CLOAD. £ usan- 



do deste modo estes dois comandos 
simples que se pode fazer a reprodu^o 
de programas BASIC. 

]& para fitas gravadas com progra- 
mas em formato SYSTEM, como, por 
exemplo, as fitas de jogos escritos em 
linguagem de mdquina, utilitdrios ven- 
didos no mercado e programas produzi- 
dos por montadores (Assemblers) ou 
compiladores, a forma de leitura 6 dife- 
rente. Para traze-los para a membria, o 
usuario devc sair do arnbiente do inter- 
pretador BASIC usando o comando 
SYSTEM. Este comando informa ao 
monitor residente em ROM que o usua- 



rio qucr executar algum programa pre- 
viamente carregado na membria, ou en- 
tSo que ele quer carregar um programa 
a partir do gravador. 

No primeiro caso, o usuirio respon- 
de & pergunta * ? que o monitor Ihe faz 
pressionando a tecla / e o endere?© de 
memoria onde estd a primeira mstrin^o 
de um programa a ser executado. No 
segundo caso, ele responde com um 
nome de, no maximo, seis alfanumdri- 
cos, indicando assim qual dos programas 
em linguagem de maquina da fita ele 
deseja que seja trazido para a mem6ria. 

0 formato utilizado na grava<;£o de 



Como usar o utilitario 



E ntre com o programa. Nao tcntc mo- 
dificar a numera^ao das linhas que 
contem as instru<;ocs DATA nem ten- 
te comprimir estas linhas ou cxpandi-las. Di- 

8 te RUN. A mcnsagcm CARREGANDO 
PROGRAMA aparecera no mcio do video 
e os dados de cada linha DATA scrao mos- 
trados no canto superior dtreito do video. 

O programa t'oi escrito de modo que, sc 
por dcscuido na hora de entrar com o pro- 
grama pelo teclado, algum dado das linhas de 
DATA estiver errado. o utilitano mostrara a 
mcnsagcm ERRO NA LINHA: n c suspende- 
ra a sua execusao. Neste caso. fa^a um LIST 
da linha n, confira com a Bstagem do pro- 
grama, corriia o erro e volte a executar o co- 
mando RUN. 

Assim que todos os erros forem corrigi- 
dos, o video se apagara c a mensagem 
BATA A TECLA L P / LER UMA FITA 
A TECLA G P/ REPRODUZIR OU CLEAR 
P / RETORNO AO BASIC 
aparecera na tela do micro. Coloque entao a 
fita a reproduzir no gravador. acione a tecla 
PLAY c pressione L no teclado do micro. 
Nao e preciso dar ENTER. O motor do gra- 
vador sera ligado c a mensagem LENDO A 
FITA sera mostrada. 



Assim que o pnmeiro programa SYS- 
TEM for encontrado, o scu nome sera mos- 
trado no canto superior dircito do video, se- 
guido por um asterisco fixo e outro que fica- 
ra piscando rapidamcntc. 0 programa da fita 
cstara entao sendo trazido para a memoria. 
Caso ele nao esteja em formato SYSTEM, 
em BASIC, por exemplo. a mensagem 
ERRO DE FORMATO aparecera c o progra- 
ma aguardara' que seja tocada qualquer te- 
cla para se posicionar no estado inicial. 

Sc algum erro de leitura na fita for en- 
contrado. a mensagem ERRO DE CHECK- 
SUM aparecera, e o programa aguardara no- 
vamente por qualquer tecla para se posicio- 
nar no inicio. Em qualquer dos casos. po- 
dem ser feitas novas tentativas de carrega- 
mento. como o ajustc do volume do grava- 
dor se o erro for de check sum. Contudo, 
para evitar contratcmpos, 6 recomendavcl 
que seja feito um ensaio de carregamcnto do 
programa usando o comando SYSTEM an- 
teriormentc dcscrito para se certificar de 
que nao ha problema de leitura. 

Sc tudo se passar bcm. o programa da fi- 
ta sera trazido para a memona. Assim que a 
leitura term mar, o motor do gravador sera 
desligado c a mensagem LENDO A FITA 



desapareccra. £ import ante observar que, 
apesar de o programa ter sido lido para a 
memoria. ele nao podcra ser executado. 
Mesmo assim, como o utilitario 1c o progra- 
ma realizando todos os testes que normal- 
mente sSo feitos pelo monitor quando se 
usa o comando SYSTEM, cxiste uma possi- 
bilidade apenas remota de que ele n3o tenha 
sido lido com sucesso. •• 

Dcsaparcccndo a mensagem LENDO A 
FITA do video, retire do gravador o cassc- 
te com o programa original c coloque uma 
fita virgern bobinando-a para a frentc. para 
sc assegurar de que a cabcca de leitura do 
gravador fique sobre o meio magnctizavel da 
fita. Em gcral. tres a cinco voltas sSo sufi- 
cicntes. Coloque o gravador pronto para gra- 
va^ao e digitc G. O motor do gravador vol- 
tara a ser ligado e a mcnsagcm GRAVANDO 
aparecera no video. O programa cstara sen- 
do reproduzido. 

Tao logo o motor sc desligue c a mensa- 
gem GRAVANDO dcsaparc^a, estara pronta 
uma salvaguarda da fita original c o utilita- 
rio podcra ser usado para fazer outras copias 
do mesmo programa, bastando para isso vol- 
tar a tecla G; reproduzir outros programas, 
tecla L;ou tecla CLEAR (rctomar ao BA- 
SIC). 
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Copsys 



100 REM**** PROGRAMS PARA PROOUZIR SALVAGUARDAS DE FITAS 

110 REM**** GRAVADAS EM FORMATO SYSTEM 

120 REM**** ESTE PROGRAMA ROW EM QUALQUER MICRO-COMPUTRDOR 

130 REM**** TOTflLMEOTE COMPflTIVEL COM 0 TRS80 MOOElO I NI\a II 

140 REM**** W TfiNDY CORPORATION 

150 REM**** WNIEL RUGUSTO MART!« BSB 14.01.83 

160 CLS:PRINT045B. * CARREGANDO 0 PROGRAMS" 

170 GOSUB65000 

190 ROKEl6526i 143:POKE15527.79:lMJSR(0) 

5000 DATA 5000 .20200,20720 

5010 DATA 66 . 65 . 84 , 65 . 32 , 65 . 32 . 84 , 69 . 67 , 117 

5020 DATA 76 . 65 , 32 . 76 . 32 , 80 , 65 , 82 , 65 . 32 , 93 

5030 DATA 76 . 69 . 82 . 32 , 85 , 77 , 65 . 32 , 70 . 73 , 149 

5040 DATA 84 . 65 , 0 , 32 . 65 . 32 , 84 , 69 , 67 . 76 . 62 
5050 DATA 65, 32. 71 , 32, 90, 65, 82, 65. 32. 82. 94 
5060 DATA 69 . 90 , 82 . 79 , 68 , 85 . 90 . 73 . 82 . 32 , 22B 

5070 OATA 79 , 85 . 32 . 67 , 76 , 69 . 65 , 82 . 32 . 80 , 155 

5080 DATA 47 , 32 . 82 , 69 , 84 , 79 . 82 , 78 . 79 , 32 , 152 

5090 OATA 65. 79, 32 , 66, 65, 83, 73, 67. 0, 76. 94 

5100 DATA 69 , 78 , 68 . 79 . 32 , 65 . 32 . 70 . 73 , 84 , 138 

5110 DATA 65 , 0 , 71 , 82 , 65 . 86 , 65 , 78 , 68 . 79 , 147 

5120 DATA 32 . 32 . 32 , 32 , 0 . 69 , 82 , 82 , 79 , 32 . 216 

5130 DATA 68 , 69 , 32 , 70 , 79 , 82 , 77 , 65 . 84 , 79 , 193 

5140 DATA 32 , 40 , 66 , 65 , 84 , 65 . 32 , 69 . 78 , 84 , 103 

5150 DATA 69 . 82 . 32 , 80 . 47 , 32 . 82 , 69 . 84 . 79 . 144 

5160 DATA 82 . 78 , 79 . 32 , 79 . 85 . 32 . 67 , 76 , 69 . 167 

5170 DATA 65 . 82 . 32 , 80 , 47 , 32 , 82 , 69 , 84 , 79 . 140 

5180 DATA 82 . 78 , 79 , 32 , 65 . 79 , 32 , 66 , 65 , 83 , 149 

5190 DATA 73 , 67 , 41 , 0 , 69 , 82 , 82 , 79 , 32 , 68 , 81 
5200 DATA 69 , 32 , 67 , 72 , 69 , 67 , 75 . 45 , 83 , 85 , 152 

5210 DATA 77 . 32 , 40 , 69 , 78 , 84 , 69 , 82 . 32 , 80 , 131 

5220 DATA 47 , 32 . 82 , 69 , 84 , 79 , 82 , 78 , 79 , 32 . 152 

5230 DATA 79 , 85 , 32 . 67 , 76 , 69 . 65 . 82 . 32 . 80 . 155 



5240 DATA 47 , 32 . 82 , 69 . 84 , 79 , 82 , 78 . 79 . 32 . 152 

5250 DATA 65 , 79 , 32 . 66 . 65 , 83 . 73 , 67 , 41 , 0 , 59 

5260 DATA 0 , 0 , 49 , 231 , 78 , 205 . 213 . 80 . 205 , 43 , 80 

5270 DATA 0 , 254 . 31 . 202 . 235 . 80 . 254 . 76 . 32 . 244 , 128 

5280 DATA 33 , 128 . 60 , 17 , 65 , 79 , 205 , 192 , 80 . 62 , 153 

5290 DATA 1 , 205 , 18 . 2 . 205 . 150 , 2 , 33 . 241 , 80 , 169 

5300 DATA 2» , 183 , 80 . 254 . 85 , 194 . 153 . 80 . 17 , 56 . 27 

5310 DATA 60 , 6 . 6 . 205 , 183 , 80 , 18 , 19 , 16 . 249 , 74 

5320 DATA 175 . 79 , 205 , 183 . 80 , 254 , 60 . 40 , 8 . 254 . 58 

5330 DATA 120 . 202 . 77 , 80 , 195 , 153 . 80 , 205 . 183 , 80 , 95 

5340 OATA 71 , 205 , 183 . 80 . 129 , 79 , 205 , 183 , 80 . 129 , 64 

5350 DATA 79 , 205 , 183 . 80 , 129 . 79 , 16 , 249 , 205 . 183 , 128 

5366 DATA 80 , 185 . 194 , 201 . 80 , 24 . 209 . 205 . 183 , 80 , 161 
5370 DATA 205 , 183 , 80 , 34 , 226 . 79 . 205 . 248 , 1 , 205 , 186 

5380 DATA 213 . 80 . 205 . 43 . 0 . 254 , 31 , 202 . 235 , 80 , 63 

5390 DATA 254 , 76 . 202 , 246 , 79 , 254 , 71 , 194 , 92 . 80 , 12 

5400 DATA 33 . 128 . 60 . 17 . 78 . 79 . 205 . 192 , 80 , 62 , 166 

5410 DATA 1 , 205 . 18 . 2 . 205 , 132 . 2 , 33 . 241 , 80 , 151 

5420 DATA 126 . 205 , 100 . 2 , 35 . 237 , 91 , 226 , 79 , 124 , 201 

5430 DATA 186 , 32 , 243 , 125 , 187 , 32 . 239 . 2B . 248 , 1 . 218 
5440 DATA 195 . 89 . 80 , 33 , 128 , 60 , 17 , 91 , 79 . 205 . 209 

5450 DATA 192 , 90 , 205 . 248 , 1 , 205 , 43 , 0 , 254 , 31 , 235 

5460 DATA 202 , 235 , 90 , 254 , 13 , 32 . 244 , 205 . 248 . 1 , 234 

5470 DATA 195 , 228 , 79 , 205 , 44 , 2 , 205 , 53 , 2 . 119 , 108 

5480 DATA 35 , 201 . 26 . 254 , 0 , 200 , 119 , 35 , 19 , 24 , 145 
5490 DATA 247 , 33 . 128 , 60 . 17 , 160 , 79 . 205 . 192 , 80 , 177 

5500 DATA 195 , 162 , 80 , 205 . 201 , 1 , 33 , 0 , 60 , 17 , 186 

5510 DATA 232 . 78 . 205 . 192 . 80 , 33 , 64 , 60 . 17 , 9 , 202 

5520 DATA 79 . 205 , 192 , 80 , 201 , 205 , 248 . 1 , 195 , 25 , 151 
5530 DATA 26 . 255 
65000 READ lt,IN,FI:M.*t*10 
65010 CS=« 

65020 FOfl!=lTO10:READ A:CS=CS*fi:POKE W.A:PRINT359. A; 

65030 :N=IW*l:IF INJFI T»€N RETURN 

65040 ICIT I:REAO SO: CS=CS-256*INT<CS/256):IF SOOCS TI€N PRINT 
"ERRO NA LINHA "iNUEND 
65050 Nl=*.*10:GOTO65010 



programas em linguagem de mdquina 6 
bastante diferente do formato de um 
programa BASIC (para maiores informa- 
9 oes, leia o artigo Formato de gravapdo 
em cassete, MICRO SISTEMAS mime- 
ro 21, junho dc 1983). Outra diferen^a 
que n5o existe um comando que per- 
mita a cna^ao de uma salvaguarda de 
uma fita com programa SYSTEM, co- 
mo existe o comando CSAVE para pro- 
gramas BASIC. 

o utilitArio 

E SUAS VANTAGENS 

0 utilitdno deste artigo fomece o 
meio de produzir cdpias de fita no for- 
mato SYSTEM. Os melhores programas 
de jogos e utilitdnos sSo fornecidos em 
fitas gravadas. neste formato, uma vez 
que o uso de linguagem de maquina ou a 
compila^So de programas aumentam a 
velocidade de execusao. 

As fitas compradas no mercado sSo 
de pre^o elevado. Um defeito na fita, 
um descuido qualquer, como, por exem- 
plo, o mau hdbito de deixar de rebobi- 
na-la ap6s seu uso, o envclhecimento da 
fita por exposi<;ao a campos magndticos 
ou a fontes de calor, podem provocar a 
perda irremediavel do programa. Como 
este problema ]& 6 conheado ha' bastan- 
te tempo, alguns fornccedores produ- 
zem seus programas duplicados na mes- 
ma fita. 



Uma solu^ao precana que pode ser 
adotada e fazer uma cdpia direta de gra- 
vador para gravador. Contudo. este pro- 
cedimento. al£m de exigir o uso de dois 
gravadores, tern o inconveniente de re : 
produzir um sinal ja distorcido do gra- 
vador, aumentando a possibilidade de 
que a copia nao venha a ter a qualidade 
suficiente para ser lida. Por outro lado, 
o sinal geiado pelo micro 6 de muito 
boa qualidade. Assirn. a melhor solutjao 
& trazer o programa para a memdria e 
reproduzi-lo usando o prdpno compu- 
tador. 

£ importante ressaltar. pordm, que a 
finalidade dada a este utilitdno e de in- 
teira responsabilidade de seu usuano. £ 
extremamcnte importante observar que 
os programas vendidos no mercado sao 
protegidos por direitos autorais e 6 
proibida a reprodu^fo de fitas com fins 
comerciais. 

OBSERVANCES FINAIS 

Este utilitirio reproduzexclusivamen- 
te programas no formato SYSTEM. Al- 
guns fomecedores de jogos em cassete 
utilizam o recurso de produzir seus pro- 
gramas em duas partes: uma pnmeira, 
forgosamente no formato SYSTEM, que 
tfo logo 6 carregada, 6 lan^ada, funcio- 
nando como um carregador especial que 
utiliza uma tecnica diferente de forma- 
ta^ao na fita, e uma segunda parte, lida 



pela primeira, que 6 entao o programa 
propriamente dito. Para estes casos, nos- 
so utilitArio nSo funcionar^. Tudo que 
ele conseguira sera apenas reproduzir 
a primeira parte. 

0 utilitdrio foi testado num equipa- 
mento compativel com o TRS-80 Mode- 
lo III no modo de carregamento em bai- 
xa velocidade (500 bauds ) e em um 
TRS-80 Modelo I, ambos trabalhando 
com BASIC nivel II. Sob um sistema 
operacional de disco ele nSo funciona, 
pois, para maior utilizafSo de memd- 
ria, ele 6 carregado onde normalmente 
deve residir o sistema operacional de 
disco e a extensfo do BASIC. 

Um cuidado final a ser tornado por 
quern dispde de apenas 16 Kb de mem6- 
ria 6 que este utilitArio nfo testa a quan- 
tidade de memdna disponivel no micro. 
Portanto, se o programa SYSTEM a ser 
reproduzido for muito grande, n£o se 
conseguira sucesso na sua reprodu^o. 
Contudo, nfo 6 freqiiente encontrar jo- 
gos ou mesmo aplicativos que ultrapas- 
sem a faixa de 10a 1 2 Kb de memdria. 

ft 



Daniel Augusto Martins 4 engenheiro eletrd- 
nico e possui mestrado em Sistemas de Con- 
trol e. Trabalha nas Centrais EUtricas do Nor- 
te do Brasil no acompanhamen to da implan- 
ta$So do Sistema de Controle Supervisor da 
Usina Hidreldtrica de Tucurul. 
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STAA, A. V., Engenharia de 
Programas. LTC - Livros TAcnicos 
a Cientlfico* Editors S. A. 



| 0 objetivo deste livro A apre- 
sentar uma sequencia harmdnica e 
consistente de tAcnicas e mAtodos 
que visam A const rug ao econdmi- 
ca de programas com elevado nf- 
vel de qualidade. 0 texto se desti- 
ne a pessoas com algum conheci- 



mento de programs gao e com co- 
nhecimentos rudimentares de es- 
truturas de dados, tais como estu- 
dantes de graduagao e programa- 
dores. 

A linguagem de programed 
dominada pelo leitor 4 irrelevante, 
bem como o computador e o sis- 
tema operacional utilizados. Os 
mAtodos e tAcnicas estudados va- 
lem para qualquer linguagem e 
ambiente de proqramacao dispo- 
nfveis hoje. Como os computado- 
res tornaram-se ferramentas indis- 
pensAveis para um sem-numero de 
aplicagdes, quer sejam comerciais, 
tecnolbgicas, comando e controle, 
pesquisa cientffica ou outras, este 
livro reveste-se de maior impor- 
tAncia porque A capaz de assegurar 
que programas venham a ser ela- 
borados com elevado nfvel de 
qualidade. 



GALANTE. T. P.; POW, E. M., 

IngISs para Processamento de 
Dados. Ed it ora Atlas. 

| Este livro A o resultado de tra- 
balho realizado durante vArios 
a nos com alunos do Curso de 



UVRARIA SISTEMA 

LOJA: AV. SAO LUIZ, 187 - LOJA 8 - la S/L 
GALERIA METR6POLE 
FONES: Oil - 257-6118 259-1503 - SAO PAULO 



SEMPRE NOVIDADES! 

01 - APPLE GRAPHICS GAMES • Colatta 30.000, 

02 - GAMES FOR YOUR TIMEX-SINCLAI R 1000 - Charlton. . . . 12.000, 

03 • BASIC PARA ENGENHEIROS E CIENTISTAS - Boratto. . . . 3.900, 

04 - GRAFOS E ALGORITMOS COMPUTACIONAIS - Szwarcfitar 7.400, 

05 - HOW TO WRITE AN APPLE PROGRAM - Faulk 30.000, 

06 - GETTING ACQUAINTED WITH YOUR VIC 20 mora than 50 

programs - Hartnell 20.000, 

07 - O SEU COMPUTADOR PESSOAL - Waite 5.900, 

08 - TECNOLOGIA DA INFORM AQAO: guia para empresas, garerv 

tes a administradores - Eaton 9.500. 

09 - PRIMEIROS PASSOS NA PROGRAMACAO EM LINGUA- 

GEM DE MAQUINA aspacialmante para Tk a CP200 - Silveira . 5.000, 

10 • APPLE II COMPUTER GRAPHICS - Williams 40.000, 

11 ■ MACHINE LANGUAGE PROGRAMMING MADE SIMPLE 

FOR SINCLAIR & TIMEX TS1000 Melbourne 30.000, 

12 • DOCUMENTACAO DE SOFTWARE - Lomax 3.200, 

13 - SISTEMAS OPERACIONAIS PARA MICROCOMPUTAOO- 

RES - Dahmke 6.900. 

14 • GUIA DE REFERfNCIA CP/M • Ingraham 2.000, 

15 - GUIA DE REFER£NCIA VISICALC • Wilson 2.000, 

16 - GUIA DE REFERENCE APPLE II - Gifford 2000, 

17 - TRICS FOR VICS - Roberts 23.000, 

18 • IBM BASIC FOR BUSINESS AND HOME - Funkhouser .... 30.000, 

19 - CURSO DE BASIC vol. 1 : para TK. CP200 a outrot com teori* 

exempios e exerefeios resotvidos p/iniciantes - Abreu 4.200, 

20 GAMES FOR YOUR TIMEX-SINCLAI R 2000 - Shaw 12.000. 

21 - HOW TO PROGRAM YOUR ATARI IN 6502 MACHINE 

LANGUAGE Roberts 16.000. 

22 - GUIA DE LINGUAGENS DE COMPUTADORES - Helms . . , 3.900, 

23 - ARCADE GAMES FOR THE VIC-20 - Hartnell 26.000. 

24 - GERENCIA DE BASES DE DADOS PARA MICROCOMPU- 

TADORES Brooner 4.990. 

25 - THE COMPUTER CONTROLLER COOKBOOK: build your 

own one-of-a-kind controllers for Apple and Atari home com- 
puters -Riley 26.000. 

26 • CODIGO DE MAQUINA PARA TK e CP 200 - DSlio S. Lima 9.000, 

ATENDEMOS POR REEMBOLSO POSTAL - CORREIO/VARIG (fora capital) 
PEDIDOS: CAIXA POSTAL 9280 

CEP 01051 - SP. 




INGliS PARA 
PROCESSAMENTO 
DE DADOS 




Processamento de Dados, na disci- 
pline InglAs TAcnico. Objetiva pre- 
parar estudantes e prof issionais de 
Processamento de Dados para o 
entendimento de textos em inglAs 
referentes A InformAtica. 

£ essencialmente didAtico e a 
apresentagfio da matAria obedece 
a uma sequAncia natural, que pos- 
sibilita, assim, a introdugao gra- 
dual dos termos tAcnicos mais 
usados em computagSo. O conteu- 
do de cada unidade A a linguagem 
tAcnica que mais freqiientemente 
aparece em publicagbes e em ma- 
nuais dessa area, tendo sido inseri- 
dos exerefeios que visam a desen- 
volver no leitor a habilidade para 
entendimento de textos. 

As leituras inclufdas no final 
de cada unidade abordam temas 
relacionados ao que existe de mais 
moderno no campo da InformAtica. 
Um glossArio de mais de 300 pala- 
vras, com os termos mais usuais 
em computagSo, e uma lista de 
siglas e abreviagoes sSo a presen ta- 
dos na parte final, permitindo ao 
leitor a sua pronta consulta quan- 
do estiver lendo o texto, fazendo 
exerefeios, ou mesmo revisa ndo as 
unidades. 



GONICK, L., IntrodupSo llustrada 
A ComputaQ&o (com muito 
humor'.). Editors Harper & Row 
do Brasil Ltda. Traduzido sob 
iniciativa da Itautec. 



B A computagSo ainda 6 encara- 
da, por muita gente, como algo 
esotArico e complicado. cujos 
prinefpios estariam numa esfera 
de compreensAo acima do que se 
pode alcangar. A fim de contri- 
buir para a mudanga dessa posi- 
g§o, a Itautec estA langando o li- 
vro "Introdugflo llustrada 4 Com- 
putagSo", traduzido do original 
norte-americano de Larry Gonick. 

Usando a linguagem das histd- 
rias em quadrinhos e incluindo ge- 
nerosas doses de fino humor, Go- 
nick mostra que, desde a prd-his- 



tdria, o ho mem tern a preocupa- 
gao de oontar coisas e registrar 
tan to essas contas como os fatos a 
ela relacionados. Em'suma, desde 
a Idade da Pedra o homem estd 
computando e montando Banco 
de Dados, seja em ossos, tabuletas 
de argila, papiro, papal ou fitas e 
discos magn^ticos. 

Com o mesmo humor, o livro 
expbe os conceitos de Idgica que 
o computador usa para to mar de- 
cisfies segundo as instrugfies rece- 
bidas e explica os prinefpios de 
funcionamento da mdquirta em 
poucas figuras com textos de f4- 
dl compreensffo. 

Enfim, 6 um livro com o qual 
o leigo em Informdtica poderd ini- 
ciar-se nessa Are a e os iniciados 
encontrarSo doses adicionais de 
bom humor. 




PEDROSO.E. T.; TEIXEIRA, E. 
R-; GASPAR. L. R. S., ElaboragSo, 
Aniiise e Racionalizaqao de 
Formuldrios. Ed Kora Atlas. 

| Este texto focalize um dos 
mais importantes segmentos da 
4rea de Organ izagSo. Sistemas e 
M6todos a : a elaboragao. a andlise 
e a racionalizagao de formulirios. 
N«o pretende. portanto, focalizar 
a referida Area como um todo, 
mas sim um de seus mais releva n- 
tes aspectos. A idAia da publica- 
gao foi conseqiiincia de pesquisa 
efetuada por seus autores junto a 
alunos de AdministragSo de Em- 
presas de diversas universidades de 
SSo Paulo e de solicitagSes de 
outros tantos colegas de prof iss«o. 

Sendo assim, este texto A con- 
siderado um dos primeiros a ser 
escrito no Brasil sobre o assunto. 
Seus autores, profissionais libe- 
rals, so mam As suas experiAncias 
profissionais experiAncias didAti- 
cas adquiridas em programas de 
treinamento e em cursos regulares 
de graduagAo em Administragfio. 
Consequentemente, o texto adota 
uma linguagem clara, simples, 
objetiva e acessfvel, tanto a profis- 
sionais como a estudiosos da Area. 
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MAIS SUCESSO FAR A VOCE ! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc€ o mais moderno ensino 
tecnico programado e desenvolvido no Pafs. 



CURSOS DE APERfEIOOAMENTO 



CURSO DE ELETRONICA DIGITAL 



Sao mais de 140 apostilas com mformacfes completas e sempre 
atualizadaS Tudo sobre os mais revolucionArio CHIPS E voce o. 
recebe. alAm de uma solida formacAo tebrica, KITS elaborados 
para o seu desenvolvimento prAtico Garanta agora o seu futuro 





CEDM 20 • KIT 
de Ferramentas. 

CEDM 78 • KIT 
Fonte de Alimentacao 
5v/1 A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
280 ASSEMBLER. 




CURSO DE 

PROGRAMMED EM BASK 



CURSO DE 

ELETRONICA E AUDIO 



MAtodo s novos e mAditos de ensino garantem um aprendizado 
prat ico muito melhor. Em cada nova liQdo, apostilas itustradas 
ensmam tudo sobre Amplificadores. Caixas Acusticas. Equalizadoies. 
Toca discos, Sintomzadores AM/FM, Gravadores e Toca-Fitas. Capsules 
e Fonocaptadores. Microfones, Sonorizacao. InstrumeniacSo de Medidas 
em Audio. TAcnicas de Gravacao e tambAm de ReparacAo em Audio 




CEDM-1 - KIT de Ferramentas. CEDM-2 • KIT Fonte de AlimentacAo 
♦ 15-15/1A. CEDM 3 • KIT Placa Experimental 
CEDM 4 • KIT de Componentes. CEDM-5 • KIT PrA-ampliticador 
EstAreo- CEDM 6 • KIT Amplificador E stereo 40w. 





Este CURSO, especialmente programado. oferece os 
♦undamentos de Linguagem de ProgramacAo que domina o universo 
dos microcomputadores. DinAmtco e abrangente. ensina desde o BASIC 
bAsico ate o BASIC mais avancado, inclumdo nocoes bAsicas sobre 
MampulacAo de Arquivos. TAcnicas de ProgramacAo. Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramagao e 
TAcnicas em Linguagem de MAquina, que prbporcionam um grande 
conhecimento em toda a Area de Processamento de Dados 



KIT CEDM 280 
BASIC Cientlfico. 

KIT CEDM 280 
BASIC Simples. 

Gabanto de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 



Voce mesmo pode desenvolver um ritmo prbprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado fAcil. E 
para esclarecer qualquer duvida, o CEDM coloca A sua disposigto uma 
equipe de professores sempre muito bem acessorada. AlAm disso. vocA 
recebe KITS preparados para os seus exercfcios prAticos. 

Agil, moderno e perfeitamente adequado A nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condicdes ideais para o seu 
aperfeipoamento profissional. 

Voc6 tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies vocd recebe nossos catAlogos de apresentacio. 










Tamanho nao 6 documento. £ o que provam os micros da linha Sinclair: s/mpies 
e baratos, mas poderosos, e/es jd ensinaram muita gente a programar 



Os pequenos 
notaveis 



Os microcomputadores 
revolucionaram a 
Informatica ao permitirem 
- devido ao seu baixo custo 
efacilidade de operagao 
- o uso a nivel individual e 
por pessoas leigas no 
assunto. O merito, contudo, 
de tornar o computador um 
instrum ento realmente 
popular, acessivel a grandes 
segmentos da sociedade, 
cabe ao ingles Give Sinclair, 
que projetou e fabricou o 
ZX80 e, posteriormente, o 
ZX81, este considerado utna 




ZX80. o pai de lodos 



obra-prima no genero. 

Com prego abaixo de 
US$ 100, um manual 
auto-explicativo que 
pemiitia a qualquer pessoa 
escrever programas 
razoavelmente complexos 
em BASIC, e uma variedade 
de fungdes que pouco ou 
nada ficavam a dever aos 
sistemas de maior porte, 
esses equipamentos logo 
transformaram-se num 
sucesso de vendas na 
Inglaterra, Estados Unidos 
e, dai, no resto do mundo. 



N o Brasil a fami'lia Sinclair serviu de 
espelho a produtos de cinco empresas: 
Microdigital (TK80, TK82-C, TK83 e 
TK85). Prolbgica (NE-Z80. NE-Z8000 e 
CP-200) e, mais recentemente, CDSE (Apply 
300). Engebrds (AS- 1000) e Ritas do Brasil 
(Ringo). 

Os primeiros a serem lan^ados foram, res- 
pectivamente, o NE-Z80 e o TK 80. Virtuais 
rbplicas do ZX80 em hardware e software, esses 
equipamentos tiveram vida breve, pois logo 
foram substitufdos pelos NE-Z8000 e TK82-C, 
que emulavam o ZX81 Essa emulag5o, contu- 
do. dava-se apenas a nivel de software, uma 
vez que em hardware essas mAquinas permane- 
ciam basicamente um ZX80 adaptado para 
rodar o sistema operacional do ZX81. Essas 



adaptacoes, alias, contrariavam bastante as 
boas tbcnicas de projeto de circuitos. pois 
eram cheias de jumps (com o conseqiiente 
excesso de fios), integrados com pernas corta- 
das. etc. 

Com um circuito melhor acabado que o 
82-C, o TK85, quando saiu, era o Sinclair na- 
tional de maior membria interna, com uma 
versao de 48 Kbytes RAM. e trazia ainda 
como novidades algumas sub-rotinas para gra- 
vagao/recuperapao em fita em alta velocidade. 

O CP-200, que chegou as lojas aproxima- 
damente na mesma epoca que o TK85, no 
infcio do ano passado. apesar de ser const rui- 
do com tecnologia TTL e ter em comum com 
o ZX81 apenas o BASIC Sinclair, representou 
uma evolugao em termos de projeto, uma vez 



que apresentava um circuito bem desenhado, 
sem as adaptacdes que caracterizaram os pri- 
meiros modelos tanto da Prolbgica quanto da 
Microdigital 

O TK83, lanpado em outubro ultimo, foi o 
primeiro ZX81 legitimo, cujo circuito 6 cons- 
titufdo de apenas quatro chips, um deles sen- 
do a famosa ULA, projetada por Clive Sinclair 
para cumprir as fungdes de 18 integrados, os 
quais substituiu. 

J4 os micros mais recentes, como o Apply 
300 e, principalmente, o AS-1000 e o Ringo, 
seguem uma nova tendgncia do mercado brasi- 
leiro de pequenos equipamentos. que consiste 
em oferecer produtos de baixo pre^o compa- 
tfveis com o BASIC Sinclair, mas que apresen 
tarn possibilidades de expansao capazes de 
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Ihes proporcionar urn desempenho antes pos- 
sivel somente aos sistemas de maior porte. 

UCP E MEMORIA 

T odos os equipamentos nacionais, a 
exemplo do Sinclair original, utilizam 
o microprocessador Zilog Z80A, com 
clock de 3,25 MHz. £ uma velocidade razoa- 
vel para um micro de 8 bits, mas nos equipa- 
mentos Sinclair ela fica um pouco prejudica- 
da porque, devido ao pequeno numero de in- 
tegrados, a UCP torna-se diretamente respon- 
s4vel por toda a supervistfo e controle do siste- 
ma, al4m da sua tarefa b4sica, que 4 o proces- 
samento lbgico-eritm4tico. 

Em termos de membria, os nossos equipa- 
mentos encontram-se em posigao bastante 
confort4vel. seja em relagao 4 familia Sinclair 
ou a outros micros, destacadamente os TRS. 
Os de menor capacidade — TKs 82-C e 83 — 
v4m de f4brica com 2 Kbytes RAM, que 4 
pouco mas 4 o dobro da capacidade standard 
do guru ingles, o ZX-81, que vem de fdbrica 
com apenas 1 K. E todos - a excegSo somen- 
te do CP-200, que j4 vem de f4brica com 16 K 
RAM e n4o admite expansoes - podem che- 
gar at4 os 48 K RAM. 

TECLADO 

O s teclados sao um dos pontos que 
mais caracterizam esses equipamentos. 
em relag5o aos sistemas maiores. A uti- 
lizagao de um teclado profissional. como os 
que encontramos nos Apples e TRS-80. torna- 
se invi4vel nos equipamentos de linha Sinclair 
basicamente por dois motivos: o prego (um 
bom teclado eletrbnico profissional pode 
custar tanto ou mais que o prego final de um 
desses micros) e o tamanho, incompativel 
com as dimensdes desses equipamentos. 

Essas limitagoes levam os fabricantes a 
adotarem tecnologias mais simples e baratas 
0 mais simples desses teclados 4 o de membra- 
ne no qual a matriz de chaves que o constitui 
4 recoberta por uma pelfcula de material pl4s- 
tico com as "teclas" impressas. Sua grande 
vantagem 4 a durabilidade pois. por ser selado 
e nao ter partes mbveis, nao 4 prejudicado pe- 
la poeira e n§o tern desgaste mecanico. Uma 
variagao mais sofisticada desse tipo 6 o tecla- 
do de bolha, que incorpora, entre a chave e a 
membrana, uma calota de material flexivel 
que. quando pressionada, fecha o contato. 
H4 ainda os teclados tipo calculadora - como 
o que equipa o CP-200 — , os de borracha 
condutiva e os do tipo "chicletes", que os 
fabricantes preferem chamar pelo nome mais 
elegante de ' "semi-prof issional". 

Do ponto de vista operacional, os teclados 
de membrana sSo os mais lentos e menos con- 
fiAveis, requerendo grande atengao no seu ma- 
nuseio. 0 usu4rio de um micro equipado com 
esse tipo de teclado desde cedo aprende que 
deve digitar com cuidado, com a ponta do 
dedo e no centro da tecla. E nunca 4 demais a 
precaugao de dar uma olhadinha no video 
para ver se o cardter digitado est4 mesmo 14. 
H4 tambem quern prefira digitar os seus pro- 
gramas em FAST. Assim, o tremor da tela, 
percebido d e rabo de-olho enquanto o usu4rio 
se concentre no teclado, 4 uma garantia de 
que o car4ter entrou. AI4m da fadiga visual 
(atengao dividida entre teclado e video) e dos 
bragos e dedos (que devem permanecer ten- 
sos), h4 ainda um stress psicolbgico causado 
por nSo se sentir no tato — ou mesmo auditi- 
vamente — o funcionamento das teclas. cansa- 
go esse que cresce proporcionalmente ao ta- 
manho do programa a ser digitado. 

No teclado de bolha (utilizado no 
AS-1000), apesar de suas limitagoes, essa si- 
tuagJo melhora um pouco. A comegar peia 
sensagao tactil de se estar realmente pressio- 
nando uma tecla e pelo "click" que se ouve 
ao fechar o contato. A confiabilidade aqui 4 




A obra-prima de Clive Sinclair: o ZX81 



maior. e a rapidez de operagao acentua-se. 4 
medida que diminui o cansago. 

A eficifincia do teclado do TK85, por sua 
vez, nib 4 tao grande quanto sugere o seu 
bonito design. As teclas sao grandes e a legibi- 
lidade 4 bastante boa. mas h4 um problema: se 
se nao forem pressionadas exatamente no cen 
tro, as teclas tendem a prender embaixo. obri- 
gando o operador a pux4-las de volta para a 
posigao normal, o que compromete a veloci- 
dade da digitagSo. De maneira geral, contudo. 
esse teclado 4 mais r4pido e confortivel que o 
de membrana. 

J4 o teclado tipo calculadora usado no CP- 
200 4 bastante confi4vel e eficiente Ele nao 
prende 4 muito dif I'cil o computador nao va- 
lidar o cariter de uma tecla pressionada (salvo 
em raros casos de muito m4 operagao) e pro- 
porciona ao usuirio a agradavel sensagao de 
estar usando um teclado de verdade, al4m de 
tornar mais r4pida a digitagao. A unica restri- 
g3o mais significative que se pode fazer a esse 
tipo de teclado refere se ao tamanho das 
teclas. muito pequeno. 

Quanto aos modelos tipo chicletes, apresen- 
tam rapidez e confiabilidade semelhantes ao 
do tipo calculadora, com a vantagem adicional 
de que as teclas sao maiores. Esse teclado 4 
utilizado por dois micros nacionais: o Apply 
300 e o Ringo. 

VIDEO 

I magens em preto e branco, em baixa reso 
lugao, com saida apenas para TV comum 
via modulador RF, sao as caracteristicas 
bdsicas de video de todos esses equipamentos. 
Todos t4m 22 linhas (mais duas reservadas 
para mensagens de status do sistema, e 4squais 
o usu4rio normalmente nao tern acesso) por 
32 colunas e a baixa resolugao deve-se ao fato 
de que nos equipamentos de linha Sinclair sb 
se pode lidar com caracteres inteiros. nao sen 




NE- 28000 




do possfvel manipular os pontos que corn- 
poem esses caracteres (para uma id4ia mais 
detalhada a usse respeito, veja o artigo Arte e 
t Venice na tele do computador, MS n9 27, 
pag. 10). Essas limitagoes. contudo (e como 
mostra o artigo citado), nao impedem que se 
faga muita coisa em termos de desenhos e gr4- 
ficos. E para os mais exigentes, j4 comegam a 
ser langadas na praga placas de circuito que 
liberam os bits dos caracteres. permitindo, 
assim. manipular mais de 40 mil pontos na 
tela. 

A utilizagao de modulador de RF prejudi- 
ce um pouco a qualidade da imagem (muito 
instavel, sobretudo nos Prolbgica NE-Z8000 
e CP-200) e a instalagao de vfdeodireto, inje- 
tando o sinal diretamente no amplificador de 
vfdeo da TV, sempre traz bons resultados. O 
modo de operagdo do video — normal ou re- 
verso - 4 outro aspecto que merece destaque. O 
fundo branco (caracteristico dos TKs) cansa 
mais a vista e prejudica a leitura do que o fun- 
do preto (dos Prolbgica), por permitirque osci- 
lagoes da rede el4trica e outras interferences 
passem a fazer parte da imagem. A solugao 
para esse problema 4 instalar uma chave inver- 
sora de video que permita ao usu4rio escolher 
o modo de operagao que julgue mais conve- 
niente Ambas essas alteragoes — vfdeodireto 
e chave inversora — sao f4ceis de fazer e nSo 
custam muito, mesmo quando realizadas 
numa oficina de assist§ncia t6cnica No Ringo 
— no modelo standard apresentado na III Fei- 
ra de lnform4tica - a inversao de video 4 feita 
atrav4s de uma tecla especifica para esse fim. 



DESIGN E ACABAMENTO 



E m termos de visual os equipamentos 
nacionais melhoraram bastante desde os 
tempos herdicos do NE-Z80 e do TK80. 
Estes, juntamente com os seus sucessores dire- 
tos - NE-Z8000 e TK82-C -. mais pareciam 




TK80: tambem teve vida breve 
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OS PEQUENOS NOTAVEIS 



protbtipos de laboratbrio, de linhas toscas e 
feias, do que propriamente produtos indus- 
trials vendidos ao publico. O CP-200, lanqado 
em outubro de 1982 (apesar de sb chegar bs 
lojas meses depois), foi o primeiro desses equi- 
pamentos nacionais a realmente ter uma apa- 
rencia de computador. Gabinete moldado em 
poliuretano. linhas suaves e harmoniosas e cor 
discreta, albm da fonte interna que diminuiu o 
numero de conexdes e de fios dispersos na 
estapao de trabalho fizeram do CP-200 um 
verdadeiro produto*acabado. Seu unico peca- 
do aparente: o tamanho, exageradamente 
grande para um micro de sua classe. e que o 
torna possivelmente o maior Sinclair do 
mundo. 

Em seguida veio o TK85, com um gabinete 
berr semelhante ao do Spectrum (apesar de 
nada ter a ver com esse modelo em termos ele- 
trbnicos e operacionais - veja quadro sobre 
Clive Sinclair). £ talvez o mais bonito dos 
micros nacionais dessa classe: dimensbes redu- 
zidas, teclas grandes e legfveis, muito leve e 
fbcil de transporter. Nao incorpora, jiorbm, a 
fonte de alimentapbo, que 6 a mesma dos 
outros TKs. 

Jb o TK83 veio para corrigir as falhas estb- 
ticas do modelo 82-C, o qual substitui. £ um 
equipamento de linhas simples, mas agradbveis 
de ver Em vez do preto fosco do 82-C, um 
suave champagne. Um teclado bem posiciona- 
do; peso e dimensbes reduzidos. 

Quanto ao Apply 300, ao AS-1000 e ao 
Ringo, se nao chegam a impressionar pela 
beleza do seu design, n So desagradam ao olhar. 
As linhas sao bastante simples e despojadas. 
sem grandes variapoes no relevo do gabinete, 
cores neutras, com os teclados ocupando a 



maior parte do espapo disponivel na parte 
superior do gabinete. As fontes e as expansbes 
de membria localizadas internamente ajudam 
a reforpar a funcionalidade desses aparelhos. 



POUCO SOFTWARE 

P rogramas -de base. utilitbrios e aplicati- 
vos - de boa qualidade e com variedade 
de fornecedores sao artigo em grande fal- 
ta no mercado nacional de equipamentos com 
Ibgica Sinclair. Apesar de a situapao do soft- 
ware nSo ser tao drambtica quanto a do hard 
ware — onde nSo existe praticamente nada em 
•termos de perifbricos possfveis de serem aco- 
plados a esses equipamentos — , o nosso pro- 
gresso nesse campo encontra-se inexplicavel- 
mente (pois hb mais de 100 mil dessas mbqui- 
nas instaladas no pais) na "idade da pedra". 

Uma rbpida olhada nos anuncios das revis- 
tas norte-americanas pode dar-nos uma idbia 
das possibilidades de uso dessas mbquinas em 
aplicapoes ditas sdrias num sem-numero de 
campos de atividade Esses programas incluem: 
• Bancos de dados tipo Pro-File; 
e Processadores de texto; 

• Aplicapbes de matembtica, ffsica, astro- 
nomia etc.; 

• Contabilidade. controle de estoque, fo- 
Iha de pagamento, mala direta, gerencia 
financeira, anblise de investimentos em Bolsa 
de Valores, controle de vendas. cblculo de 
fluxo de caixa; 

• Histbrico mbdico; 

• Planejamento e controle de campanha 
publicitbria; 

• Compiladores de diversas linguagens; 

• Uma variedade de programas utilitbrios; 



e E alguns aplicativos atb certo ponto 
curiosos, como aquele que exercita nas pes- 
soas o conhecimento da Bfblia, o curso para 
tornar o usubrio um campebo nas mesas de 
Blackjack, nos cassinos. ou ainda aquele 
outro, "cientificamente projetado" para o 
cblculo de chances de vitbria em corridas de 
cavalos. 

Praticamente nada disso existe no Brasil. 
Ningubm desenvolve e nem os pirates, sempre 
tbo ativos, mostram-se capazes de oferecer 
bons produtos, mesmo que “traduzidos". A 
pirataria. alibs, tem-se const itu (do num ele- 
mento inibidor da produpbo de bom software 
para esses equipamentos, uma vez que multa 
gente boa. com capacidade para desenvolver 
btimos programas nao o fazem (ou, quando 
fazem, nao divulgam), certos de que o seu 
trabalho irb remunerar outros bolsos mais 
espertos 

Se esse receio. por um I ado. tern o seu 
fundamento, por outro b bom nao esquecer 
que uma marca de software que consiga fir- 
mer no mercado uma imagem de seriedade e 
qualidade sempre irb desfrutar junto ao consu- 
midor de uma confianpa maior do que aquelas 
fitas com capa em xerox e sem documentapbo 
alguma vendidas em muitas lojas por esse 
Brasil afora. E algumas empresas jb descobri- 
ram e estbo aplicando uma fbrmula para con- 
tra atacar os piratas: produtos de boa qualida- 
de (bons programas, gravados em equipamen- 
to profissional, bem documentados e com aca- 
bamento realmente industrial) a baixo prepo e 
vendidos em larga escala. 

Uma dessas empresas b a JVA Microcom- 
putadores Ltda., software-house carioca que 
produz programas para Sinclair sob a marca 
Ciberne. Josb Eduardo S. Neves, diretor da 
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JVA, fala sobre alguns problemas que afetam 
a sua empresa e. de resto, diversas outra* fir- 
mas que operam de maneira semelhante no 
setor. 

As software-houses, queixa-se Eduardo, 
enfrentam dois grandes obstAculos ao desen 
volvimento do seu trabalho. De um lado. ex- 
plica ele. encontra-se a atitude dos fabricantes 
de hardware que "escondem todas as informa- 
v6es sobre os equipamentos NSo dao detalhes 
tScnicos pri ninguSm: 6 mais fScil conseguir as 
informapoes na Inglaterra", onde se localiza a 
Sinclair 

A outra dificuldade reside no fato de que 
"as prbprias lojas pirateiam o que o pessoal 
fa z", e quando a software -house negocia a 
comercializapao dos seus programas com essas 
empresas. "nSo se sabe nunca se se estS lidan- 
do com um amigo ou com um inimigo". 

Nos Estados Unidos, onde os fabricantes 
nSo fazem segredo sobre suas mSquinas. as 
grandes produtoras de soft combatem os pira- 
tas com a rapidez: apbs uma campanha publi- 
citbria macipa para despertar o interesse. lan- 
pam o produto em tiragens astronbmicas por 
todo o pais e. antes que as copies oroliferem, 
jd receberam de volta, com lucro, o investi- 
mento feito. Enquanto isso, novos programas 
vSo ficando prontos para ser comercializados 
da mesma forma. 

J6 no Brasil 6 diffcil fazer isso. tanto pela 
reduzida escala do mercado, quanto pela pe 
quena capacidade financeira das empresas, 
que nao podem fazer uma quantidade muito 
grande de cdpias e distribuf-las em Smbito 
nacional num curto espapo de tempo. 

A falta de recursos para manter equipes de 
alto nivel (e, portanto. bem pagas) constitui- 
TK82-C sem duvula. o mais vendido *®, segundo essas empresas. noutra dificuldade 




para o desenvolvimento de bom software na- 
cional. A solupSo encontrada por diversas des- 
sas firmas para manter a sua presenpa no 
mercado com uma variada linha de produtos 
tern sido a de traduzir programas estrangeiros, 
procurando melhorS los e adaptS-los A nossa 
realidade e. sempre que possfvel, acrescentar 
programas desenvolvidos aqui. 

Quanto A pirataria, as soft -houses vim pro- 
curando conscientizar o usuirio das vantagens 
de adquirir produtos bem-feitos e com garan- 
tia, enquanto oferecem uma margem maior de 
comissSo aos revendedores. 

Os jogos ainda se constituem na esmagado 
ra maioria dos softs vendidos, mas jd come- 
gam a surgir outros tipos de programas. so- 
bretudo utilitdrios, tais como renumerador de 
programas. Assembler/ Disassembler, rotinas 
para gravapao em alta velocidade, rotinas de 
SCROLL, etc. 

Um ponto curioso refere-se aos fabricantes 
de micros. Ao contrdrio do que dizem os 
usudrios, a maioria dos fabricantes considera 
satisfatbria — quantitative e qualitatlvamente 
— a oferta de programas disponivels no mer- 
cado brasileiro. Ricardo Tondowski, da Micro- 
digital, chega a afirmar que na Europe nin- 
gudm tern software para equipamentos de 2 
Kbytes, em termos de qualidade e quantidade, 
como no Brasil. Wagner Codonho. da Ritas, 
discorda desse ponto de vista e diz que a falta 
de soft levou a su» empresa a produzir cartu- 
chos de programas Esses cartuchos contim 
programas gravados em ROM e funcionam 
como uma espdcie de expansao de membria, 
bastando conecti-lds ao micro para executar 
os programas. 

A Microdigital atua na producao de soft- M 
ware atravis de uma'empresa assoc iada, a Mul- 
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Para fazer um micro funcionar. nSo basta aproveitar uma oferta de 
liquidapSo e uma tomada na parede 0 micro que voc6 compra na 
Computerland vem equipado com esses (tens: 

1 - Computerland Systems: um departamento que garante a voc£ o 
maior numero de opgbes em software aplicativo da prapa 

2 - Assessona especializadapara expansSo e integragao de pefif6ricos 

3 - Garantia de AssistGncia Tbcnica Gratulta por 1 ano. 6 sd voc6 exigir 
seu Certificado de Garantia Computerland no ato da compra. 

Esses itens nSo sSo opcionais j£ estao incluldos no pre^o Mesmo 
nas ofertas especiais que anunciamos nos jornais de domingo 
Computerland aceita todos os cartbes e abre seu crbdito pelo telefone 
Ljgue pedindo um representante tbcnico em seu escritbrio 
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OS PEQUENOS NOTAVEIS 



tisoft (que substituiu a antiga marca Micro 
soft), enquanto que as demais (inclusive a 
Ritas, tambdm produtora) mostram-se interes- 
sadas em credenciar software-houses para o 
desenvolvimento de programas. 

PERIFtRICOS 

A respeito dos peri!4ricos para eqjipa- 
mentos Sinclair, h4 que se fazer a dis- 
tingSo entre as possibilidades de aco- 
plamento, que s$o praticamente ilimitadas - 
itto 4, com a devida interface um micro de 
linha Sinclair aceita qualquer periferico que 
qualquer outro computador possa aceitar. 
resguardadas, naturalmente, as competibilida- 
des de porte do equipamento (nao se pode. 
por exemplo. pendurar um disco rfgido de 
300 MB num TK. . .) — e as opgoes disponf- 
veis no mercado brasileiro que, no momento, 
praticamente inexistem. 

Para se ter uma id4ia do que j4 4 comercia- 
lizado no mercado norte americano, basta dar 
uma outra olhadela nas revistas especializadas 
de 14 Tomemos como exemplo a revista Sync. 
voltada para os usu4rios desses equipamentos. 
Em sua edigao de novembro/dezembro 1983 
vemos anuncios dos seguintes produtos: 

• Sistemas para processamento de texto 
similares ao famoso Word Star, com reforma- 
tagSo autom4tica de par4grafos, controle pie- 
no de cursor e caracteres ASCII maiusculos e 
mlnusculos, entre outras facilidades; 

• Teclados dos mais variados tipos quanti- 
dade de recursos e pregos; 

• Diversos racks para embutir o compu- 
tador, instalar teclados e expansoes; 

• Acionadores de disquetes de 5 1/4", com 
respectivas interfaces; 
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• Interfaces para CP/M; 

• Placas para alta resolugao, som e at4 ge- 
ragao de cores; 

• Interfaces analbgico/digital-digital/analb- 
gico (AD/DA) para aquisigao de dados e con- 
trole de processos; 

• Modems e demais equipamentos para 
comunicagao de dados; 

• Sintetizadores de voz; 

• Geradores program4veis de caracteres; 

• Placas de membria RAM n5o volitil para 
armazenamento permanente de dados e sub- 
rot i nas; 

• Placa para uso de caneta de luz; 

• E mais uma s4rie de outros aparelhos que 




d tpoca do TK82-C 

permitem, entre outras coisas, depurar e que- 
brar a protegao de programas, melhorar a lei- 
tura/gravagao de fitas, conectar diversos peri- 
f4ricos etc. 

No Brasil, a situagao ainda 4 bem diferen 
te. Praticamente inexistem produtores inde- 
pendentes desses perif4ricos e os fabricantes 
dos micros pouco fazem nesse sentido. H4 
tamb4m os produtos-fantasmas. que s6 exis- 
tem nos anuncios coloridos, nunca nas prate- 
leiras das lojas. 

Quanto aos produtores independentes, 
uma pesquisa nos mercados de Rio e Sao Pau 
lo detectou apenas os dispositivos de auxilio 
de leitura/aravagSo de fitas cassete Tig 
Loader (Cr$ 18 mill, da Tigre, e CMS/ZX 
da Polimicro, e as placas da Tplak: 
IOPLAK (para controle de aparelhos externos 
- Cr$ 60 mil), BIPLAK (placa de bip - 
Cr$ 50 mil), CARAPLAK (geradora de carac- 
teres - Cr$ 82 mil ) e PLAKMAE (paracone- 
xSo de perif4ricos - Cr$ 45 mil). Fora isso, 
o engenheiro Bernhard Wolfgang Schbn. de 
S5o Bernardo do Campo, instala hardware de 
caracteres especiais por Cr$ 25 mil, enquan- 
to que, em Porto Alegre, a Digital Compo- 
nentes Eletronicos vende placas para alta reso- 
lugao. 

Os equipamentos mais novos (Apply 300. 
AS-1000 e Ringo) j4 oferecem opgao de safda 
para impressora serial ou paralela; a Prolbgica 
vincula a interface paralela 4 compra da Im 
pressora P-500 (Cr$ 1 milhio 400 mil), de su; 
fabricagao e a Microdigital, apbs o fiasco da 
TK-Printer muito anunciada, mas que nSo 
chegou a ser produzida. promete colocar no 
mercado uma interface paralela para o TK-85. 

Os perif4ricos oferecidos pelos fabricantes. 
de acordo com question4rio distribuido entre 
essas empresas por MICRO SISTEMAS. s4o os 
seguintes: 

- Prolbgica (CP-200): Joy Control (con- 
trolador de jogos. vendido a Cr$ 35 mil), pla- 
ca de alta resolugao (Cr$ 210 mil); 

— Ritas (Ringo): Sintetizador de Som 
(Cr$ 40 mil). Interface Paralela Centronics 



(Cr$ 40 mil). Interface para Modem (Cr$ 40 
mil), Gravador de EPROM (Cr$ 80 mil) e In- 
terface para Tape Deck com Ultra Fast 
(Cr$ 40 mil). 

- Engebr&t (AS-1000): Interface AS-100 
(Cr$ 75 mil), Mbdulo de ExpansSo de Memb- 
rla de 16 K RAM (Cr$ 60 mil). Speed File de 
1 MB (Cr$ 1 milhao 650 mil). Joystick (Cr$ 
15 mil). 

- Microdigital (TK83 e TK85): Expansbes de 
membria RAM de 16 K (Cr$ 69 mil 850) e 
64 K (159 mil 850), ambas para o TK 83. 
Quanto ao Joystick, n$o estava sendo produ- 
zido 4 4poca do fechamento dessa edigao, es- 
tando previsto para o Infcio deste ano o Ian- 
gamento de um novo modelo. 

O periffrico mais utillzado com esses 
equipamentos 4, no entanto, o gravador casse- 
te, para armazenamento e recuperagao de pro- 
gramas. E 4 o gravador. tambbm, que geral- 
mente traz as maiores dores de cabega para os 
usu4rios, sobretudo os novatos. 

O bom desempenho do gravador depende 
muito das condigbes de funcionamento e de 
regulagem do aparelho, bem como da familia- 
ridade do usu4rio com a sua operagSo. A lim- 
peza peribdica das cabegas com cotonetes 
embebidos em 4lcool (tomando-se culdado para 
deixar secar bem antes de utilizar o equipa- 
mento novamente) e a manutengao da regula- 
gem correta de azimute (4ngulo de incidbncia 
da cabega sobre a fita) sSo duas provid4ncias 
fundamentals, de acordo com usu4rios expe- 
rientes. 

£ mais f4cil gravar que recuperar progra- 
mas porque a maioria dos gravadores moder- 
nos tern ajuste autom4tico de nivel de grava- 
g4o e os computadores, antes de soltarem o 
programa, enviam um sinal para que o grava- 
dor ajuste o nivel. Mas mesmo assim podem 
ocorrer problemas, diffceis de detectar e que 
sb serSo sentidos na hora do carregamento. 
Isso acontece quando a cabega apagadora nSo 
est4 funcionando bem e deixa na fita vestfgios 
da gravagao anterior que se misturam ao novo 
programa. Esses rufdos, indistinguiveis ao ou- 
vido, confundem o computador que, entSo, 
nao consegue carregar o programa, deixando 
no usu4rio a impressSo de que o problema 4 
de carregamento, quando na realidade 4 de 
gravagao. 

No carregamento de programas, um dos 
pontos criticos consiste em identificar com 
precisSo o melhor volume de safda do sinal. 
Se for muito baixo, o computador nSo conse- 
gue captar o programa; caso esteja muito alto, 
ou o computador n5o consegue distinguir as 
partes silenciosas das sonoras, em razfo doele- 
vado nfvel de rufdo, ou entSo o programa ser4 
distorcido pelo excesso de sinal. A esse respei- 
to, n4o h4 fbrmulas prontas: o ajuste ideal de- 
vert ser procurado pelo processo de tentative 
e erro, a o usu4rio iniciante podert "apanhar" 
um bocado at4 descobrir o nivel certo. 

Ainda de acordo com os especialistas con- 
sultados a fita comum low-noise de boa quali- 
dade presta-se perfeitamente ao uso com esses 
micros, sendo dispens4vel, portanto.a utlllza- 
gao de fitas especiais, mais caras e 4s vezes atb 
prejudiciais aos gravadores comuns, que nio 
foram projetados para operar com elas. Deve- 
se tamb4m usar as fitas de curt a dura- 
gao (que. por serem mais leves, possibilitam 
manter uma rotag4o mais uniforme) com 
poucos programas gravados, de preferfncia 
um sb. Dessa forma, a fita sert menos utiliza- 
da, diminuindo o seu desgaste e, em caso de 
defeito, perde-se apenas um programa. Quern 
quiser uma seguranga maior, pode gravar o 
mesmo programa v4rias vezes na mesma fita, 
precavendo-se contra variagdes ocorridas em 
trechos da fita e que obrigariam o usu4rio a 
ter que digitar todo o programa novamente. 

Quanto ao tipo de gravador, o mais usado 
em todos os micros nacionais 4, sem duvida, o 
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A interessante historia 
de Sir Clive Sinclair 



D csdc a adolcsccncia, o in- 
gles (live Sinclair demons- 
trou duas caracteristicas: 
um genio crialivo para projetar 
maquinas c um gosto accntuado 
pelos oh jet os pequenos. Com 
apenas 12 anos de idade, ele 
construiu uma pcquena calcula- 
dora mecanica e aos 22, apos 
um breve periodo como reda- 
tor e editor cspecializado cm 
elctronica domcstica, fundou 
com a sua esposa Anne uma cm- 
presa que vendia pclo corrcio 
inicialmcntc transistores e de- 
pois radinhos transistorizados 
do tamanho de caixas de fosfo- 
ros. 

Na decada de 70 projetou 
uma das primeiras calculadoras 
eletronicas cientiTicas de bolso, 
alem de um relogio de pulso di- 
gital e de um microrreceptor de 
TV com uma tela de duas pole- 
gadas. Esses produtos, talvez por 
sou pioncirismo, nao consegui- 
ram fazer sucesso e tiveram vida 
breve. 

Foi em 1980 que Sinclair 
ian«;ou o produto que iria oca- 
sionar uma verdadeira revolut,ao 
na microinformatica, tornando 
o computador acesstvel a milha- 
res de pcssoas: o ZX80. Menor 
e mais barato computador dis- 



ponivel no mercado, o ZX80 
inovava em tres aspectos princi- 
pals: no preqo, pois foi o primei- 
ro computador a custar menos 
de USS 100, na elctronica (re- 
duziu o numero de chips nor- 
malmente utilizados de 40 para 
21), e na programa^ao. com um 
BASIC simples c poderoso. Ven- 
dido inicialmcnte pelo correio, o 
ZX80 iniciava poucos meses de- 
pois a sua escalada para o suces- 
so atraves das 1 1 2 lojas da ca- 
deia W. H. Smith, na Inglaterra. 

No ano seguinte, a Sinclair 
Research voltava a surpreender 
com o lan«,amcnto do ZX8 1 , ate 
hoje considerado como a obra- 
prima dos computadores pes- 
soais. As inova t;5es tccnologicas 
desse modelo cram ainda mais 
marcantes, a come^ar pclo nu- 
mero de chips, que caiu dos 21 
do ZX80 para apenas quatro no 
ZX8I (uma ROM com o sistema 
operacional, uma RAM para uti- 
liza^ao pelo usuario, a UCP Z80A 
e um quarto chip projetado 
pela Sinclair e fabricado sob 
encomenda por uma firma inglc- 
sa de microeletronica, que con- 
trola toda a entrada/saida do 
computador, substituindo 18 
chips do modelo antigo). Com 
isso, o ZX81 ficou ainda mais 



compacto, bonito e barato que 
o scu antecessor, alem de mui- 
to mais poderoso: o BASIC re- 
sidente que ocupava somente 
4 K no iCX80. foi ampliado no 
ZX8I para 8 K, o que permitiu 
acrescentar um maior numero 
de fun^des e utilizar perifericos, 
como impressora. O exito de 
mercado foi tao grande que o 
ZX81, em apenas tres meses, 
vendcu o mesmo numero de uni- 
dades que o ZX80 (ja conside- 
rado um campeio de vendas) 
em um ano - 50 mil -, conquis- 
tando de vez nao so a Inglaterra 
e outros paises europeus, mas o 
proprio santuario da Informati- 
ca mundiahos Estados Unidos. 

Criativo e irrcquicto. Give 
Sinclair nao se contentaria em 
descansar sobre as glorias do 

K assado. E certamente nao o fez. 
lais um ano de trabalho e o 
mercado se surpreendia nova- 
mente, dessa vez com o Spec- 
trum. Com dimensdes aproxi- 
madas as do ZX81. um pouco 
mais caro. mas com uma serie de 
outros recur sos. entre cles a ge- 
ra^ao de cores, este modelo lo- 

E ) conquistou muitos usuarios. 

nquanto isso, o inventor ingles, 
retomando o antigo projeto da 
TV miniatura. desenvolveu um 



originalissimo projeto de tela 
plana, com 20mm de profundi- 
dade, 100mm de Iargurae50mm 
de altura, que c tres vczes mais 
brilhante e consome a dccima 
parte da potcncia de um tubo 
de imagem tradicional com 
uma tela do mesmo tamanho. 
Essa tela ira equipar microtele- 
visores de tamanho aproximado 
ao de irm mat,o de cigarros e 
posteriormentc talvez os pro- 
rios computadores da empresa. 
I nas revistas nortc-americanas, 
a Timex Sinclair, que produz os 
aparelhos da Sinclair Research 
nos Estados Unidos, ja anuncia 
um novo lan<;amento: o micro- 
con pula dor Timex Sinclair 

2068, com 48K de RAM, sistema 
operacional em 24K, cores, som 
e varios outros recursos, tudo 
isso por mcnos de US S 200. 

Em vista de todas essas reali- 
za^des c da genialidade que tern 
demonstrado esse homem de43 
anos, dono de um refinado 
humour britanico e amantc de 
carros esporte, capaz de gcrar 
importances inovai,dcs tccnolo- 
gicas sem ter freqdentado uma 
universidadc, foi que a rainha 
Elizabeth II concedcu-lhe, a 16 
de junho do ano passado. o titu- 
lo de Sir. 



National com contador de fita (Cr$ 60 mil), 
que permite localizar com rapidez o programa 
desejado. H4 tamMm quern use tape-decks, 
equipamentos mais sofisticados e caros, e 
tamb4m gravadores do tipo mlcrocassete. 

ASSIST^NCIA CENTRALIZADA 



A assistencia t6cnica desses equipamentos- 
6 em geral central izada nas fdbricas e 
mesmo no caso da Prolbgica, que cre- 
dencia oficinas autorizadas em todo o Pals, 
essa descentralizacao nao vale para o CP-200 
na capital de Sao Paulo. 

Entre as outras empresas, a centralizacao 
tern origem numa desconfian^a quanto A capa- 
cidade tecnica ou mesmo a idoneidade das 
posslveis candidatas a oficinas autorizadas. Se- 
gundo Ricardo Tondowski, assessor da direto- 
ria da Microdigital, "nao credenciamos ofici- 
nas porque queremos manter a imagem do 
nosso produto" e, por isso, a empresa, para 
descentralizar, optou pela abertura de postos 
prbprios de assistbneia tdcnica em diversas 
capitals brasileiras. Os dois primeiros — Rio de 
Janeiro e Porto Alegre - jd estSo funcionan- 
do, estando prevista a abertura de postos se- 
melhantes em Brasilia, Belo Horizonte, Recife 
e Beldm. Nas outras cidades, mantdm-se o 
esquema tradicional de enviar os TKs em ma- 
lotes para a fdbrica. 

Tambdm de malote viajarSo para o Rio de 
Janeiro os AS-1000, da Engebrds, que por- 
ventura apresentarem problemas. Jorge Luiz 
de Andrade Lins, presidente da empresa, ex- 
plica que vai centralizar na fdbrica o conserto 



dos computadores para poder ter uma iddia 
mais direta dos defeitos que ocorrem nos 
equipamentos. Ele nao descarta a possibilida- 
de de, futuramente. vir a credenciar oficinas 
autorizadas. mas essas serao escolhidas a dedo 
e seus t6cnicos terao que passar por um treina- 
mento intensive na f4brica. 

A Ritas do Brasil, fabricante do Ringo, 6 
ainda mais n'gida nesse aspecto. Conforme diz 
Wagner Codonho, gerente comercial, a empre- 
sa nSo pretende credenciar firmas de assistfin 
cia t6cnica e mesmo que algum dia venha a 
faze-lo. "a id4ia 6 que dentro dessas oficinas o 
respons^vel pelo conserto de nossos equipa- 
mentos seja um funcionArio nosso. Essa preo- 
cupatao, esclarece. deve-se em grande parte ao 
fato de que em sistemas de eletrdnica h4 mui- 
ta coisa em que se pode quebrar o galho e nac 
consertar realmente. e a Ritas nSo quer correr 
esse risco. "AI6m disso", acrescenta, "acha- 
mos que o numero de mAquinas que poderao 
voltar para assistftneia 6 mfnlmo”. 

A esse respeito, ali4s, fabricantes, t4cnicos 
independentes e usu4rios consultados concor- 
dam que esses equipamentos — talvez por te- 
rem muito menos componentes que os micros 
de maior porte - apresentam um baixo fndice 
de problemas tdcnicos, sobretudo tendo em 
vista o numero de m4quinas em funcionamen- 
to no mercado. A maioria dos problemas apre- 
sentados pelos equipamentos, enfatizam os 
especialistas, devem-se mais a falhas na manu- 
tengao e erros de operagao por parte dos 
usuarios do que propriamente a defeitos de 
natureza tecnica. 

Para Jos4 Carlos Niza, engenheiro e diretor 
tficnico da Computer Service Center Ltda„ 



empresa carioca especializada em manutenpao, 
a 4rea mais problem4tica de computadores 
como os TKs 82-C e 83. bem como o ZX81 , 6 
a conexSo de expansdo de membria que, se 
nSo estiver bem encaixada, pode acarretar 
falhas de operapSo no micro, tais como o apa- 
gamento da memdria ou mesmo o trancamen- 
to do sistema operacional. Sobre isso, aliis, 
os tdcnicos consultados recomendam a limpe- 
za periddica dos contatos — tanto do micro 
quanto da expansdo - para evitar problemas 
de mau contato causados pela oxidacao. Isso 
pode ser feito com um pano levemente embe- 
bido em benzine. 

Niza faz ainda outros comentirios a respei- 
to da operapao desses sistemas. "Retirar a 
expansilo com o computador ligado 6 crime”, 
diz ele. acrescentando que "nSo s6 a expan 
sSo. mas todas as conexoes devem ser feitas 
com o computador desligado”. Nunca se deve 
desligar o micro pelo plugue conectado ao 
aparelho, mas sim no interruptor da fonte ou 
diretamente na tomada da rede el6trica. Assim 
evita-se a geragSo de cargas espurias que po- 
dem danificar o circuito. E quando sedesligar- 
o que 6 feito com freqiidncia para ressetar o 
sistema — deve se esperar pelo menos uns 10 
segundos para permitir que os capacitores se 
descarreguem e nSo haja sobretensSes na hora 
do religamento. 

As empresas independentes de manuten- 
cao, por sua vez, nao gostam de consertar 
esses equipamentos porque 6 uma tarefa tra- 
balhosa e demorada, ao mesmo tempo em 
que, devido ds caracteristicas de baixo custo 
dessas maquinas, o valor dos or^amentos tern „ 
que ser necessariamente reduzido. ,o, 
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TK83 



A s informacoes acerca do eauipa- 
memo Apply '00 nos foram tornr- 
cidas pcla empresa fabricantr, nio 
tcnd»> podido nossa equipc verified- 
las uma vez aue. apesar dc termos pedido 
com antecedencia urn equipamento para 
teste, a empresa nao nos den resposta. 

Em ligac'So telefAnica. fomos informa- 
dos pela funcioniria da CDSE, Marta da 
GI6ria Dias, de que a miquinaesuriasain- 
do de linha. Posteriormente. o »r. Francis- 
co Moreira Cesar. Diretor da empresa. 
afirmou que a funcioniria se ’confundira": 
o equipamento nao teria sua produgiio 
desativada, e sim seria reform ujado. 

A revista MICRO SISTEMAS. contu- 
do. deixa clam a seus lei tores ter sido im- 
possivel sequer ver tal maquina. 



Ari Soares, proprietirio de uma dessas 
empresas, a Yatec, do Rio de Janeiro, explica 
melhor os motivos dessa "rejeigao'*. 0 princi- 
pal problems diz ele, 6 que os componentes, 
principal mente os integrados, sao soldados na 
place quando deveriam ser colocados em so 
quetes. Se assim fosse, prossegue, o conserto 
de um equipamento desses seria coisa de ml- 
nutos, pois ficaria muito mais f Acil localizar e 
substituir o componente defeituoso. Como, 
no entanto, 6 tudo so I dado (is vezes em baixo 
e em cima da placa), a localizagao do defeito 
fica muito mais diffcil — posto que nSo di 
para testar individualmente os integrados 
"suspeitos' - a, quando se retire o compo- 
nente com o ferro de solder, frequentemente 
ocorre danificar-se a pista do circuito, que de- 
ve ser refeita, dando ainda mais trabalho e con- 
sumindo tempo. Tudo isso fa z com que o 



custo da mio-de-obra fique muito alto em 
relsgffo ao valor do equipamento e ao que o 
seu proprietirio esti disposto a gastar num 
conserto. 

Para o tdcnico de manutenglo, sentencia 
Ari, "o design do circuito 6 mais importante 
que a qualidade do componente”. Ele aponta 
os principals problemas que encontrou nos ^ 

Sinclair (originais ou competfveis) que passa- 
ram pela sua oficina: teclado ("a qualidade da 
fite que liga o teclado i UCP 6 ruim”); falhas 
de montagem na fabrics; especificamente no 
caso do TK82-C, defeitos causados pela adi- * 

cao da placa de SLOW; componentes ruins. 

Apesar de todos esses problemas. Ari Soa- 
res nSo poupa elogios a essa linha de equips 
mentos: "0 Sinclair, em termos de hardware. 

6 a melhor mdquina que eu ji vi na minha 
vlda. 0 seu firmware 6 algo fantistico; com 



Os equipamentos 



FABRICANTE 


MODELO 


VIDEO 


TECLADO 


Tipo 


Descrigao 


Sistema 


COSE - Centro de Dee. de Slat Elet Ind. Com. Ltda. 

Estrada do Galeao. 1 1 - sala 202 
21931 Rio de Janeiro - RJ 
Tel.: (021) 396^264 


Apply 300 


Texto: 32 col. x 22 1 
Grafico: 64 x 44 pts. 


Borracha 


69 teclas 
de fungao: 25 
de comando: 26 
numbrico reduzido 


8 K ROM 


EngebrAs Eletronlca e InformAtica Ltda. 

Rua do Russel, 450 - 3.° andar 
22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 


AS- 1000 


Texto: 32 col. x 22 1. 
GrafiCO: 64 x 44 pts. 


Membrana 
cl calotas 


40 teclas 
de fungao: 154 
de comando: 34 


8 K ROM 


Microdigital Eletrbnica Ltda. 

Rua do Bosque. 1234 
01136 Sao Paulo - SP 
Tel.: (011) 825-3355 


TK83 


Texto: 32 col. x 22 1 
Grafico: 64 x 44 pts. 


Membrana 


40 teclas 
de fungao: 37 
de comando: 34 


8 K ROM 


TK85 


Texto: 32 col. x 22 1 
Grafico: 64 x 44 pts. 


Borracha 


40 teclas 
de fungAo: 37 
de comando: 46 


10 K ROM 


Prolbglca Microcomputadores Ltda. 

Ay. Eng. 0 Luis Carlos Berini. 1168 
04571 Sao Paulo - SP 
Tel.: (011) 531-8822 


CP-200 


Texto: 32 col. x 22 1 
Grafico: 64 x 44 pts 


Calculadora 


43 teclas 
160 fungdes 
e comandos 


8 K ROM 


Ritas do Brasil Ltda. 

Rua Soldado Jose Reymao. 199 
02178 Sao Paulo - SP 
Tel.: (011) 217-8400 
Divisao Informatics 


R-470 Ringo 


Texto: 32 col. x 22 1 
Grafioo 64 x 44 pts 
Alta res.: 256 x 192 pts. 
(c / cartucho apropriado) 


Semi- 

profissional 


49 teclas 
algumas c/auto- 
repet igao 

de fungao: nao tern 
de comando: 34 


8 K ROM 



Esta tabela foi feita com base nas informagdes de um questionario respondido pelos fabricantes, e compreende apenas os equipa- 
mentos efetivamente sendo comercializados. Com a finalidade de evitar repetigdes e economizar espago. retiramos'da tabela alguns 
dados comuns a todas essas maquinas e que apontamos a seguir: a UCP Z80A, com clock de 3,25 MHz, e uma dessas caracteristicas, 
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meia diizia de componentes, Clive Sinclair fez 
um programa monitor que permite operar 
como um computador completo". E vai aMm: 
"Um bom programador faz mail num TK que 
um mau programador num IBM-PC". 

No tocante ao controle de qualidade dot 
produtot. os fabricantes ressaltam 01 seus es- 
forgos nesie sentido. EngebrAi. Microdigital e 
Prolbgica teitam um a um os componentes 
antes de iniciar a montagem. A Ritas testa 
individualmente os componentes mais crftlcos 
e na base do percentual por lote os demais. 
Alguns fabricantes fazem testes intermediaries 
durante a montagem e todos testam os equi- 
pamentos prontos, deixando-os funcionar por 
um determinado periodo antes de embalS-lo*. 
A Engebrfe chegou a desenvolver painbis de 
teste d# acordo com as suas especificagoes 
industrials e confecciona as prbprias placas de 



circuito com miquinas Ristron importadas 
dos EUA. Todas as empresas mantAm labors 
tbrios de pesquisa e desenvolvimento. 

De um modo geral. os fabricantes vdem 
nos principiantes e nos jovens dos curios se- 
cunddrio e superior os seus maiores clientes. A 
Rites, contudo, apresenta ambiedes de maior 
porte para Codonho, o Ringo deverd pegar 
uma faixa de publico que vai desde o iniciante 
ate £ Industrie ou loja que nfio tern condigdes 
de ter um micro maior. At£ mesmo "em gran- 
des empresas, nosso equi pa men to pode ser 
usado, por exemplo, em processamento dlstri- 
bufdo, como nos virios departamentos de 
uma firma ou nas vSrias lojas de uma cadeia". 

J£ a Proldgica, talvez por atuar primordial* 
mente com sistemas maiores e de outras II- 
nhas. rt&o acredita tanto na potencialidade dos 
pequenos equipamentos. Pelo contrtrio. con- 



forme argumenta o seu gerente de marketing, 
Joio Bittencourt. "o produto Sinclair tern um 
determinado tempo de mercado e os novos 
model os v*o chegar ao prego de um Sinclair, 
fazendo muito mais do que ele". E arremata: 
"Os equipamentos da linha Sinclair podem ser 
usados em aplicagQes comerciais, mas nunca a 
ponto de competirem com sistemas maiores. 

Podem at£ fazer o que os sistemas maiores 
fazem, mas nunca com a mesma eficiincia”. 

ESCOLA E CACHAQA 

P or serem os mais acessfveis, simples e ba- 
ratos. esses equipamentos constituem-se 
na grande escola; na porta de entrada de 
milhares de pessoas no mundo da Informatics. 
Micro ligado na TV da sala (disputando tempo 



fabricados nc 


) Brasil 






MEMORIA 


ENTRADAS 


CONFIGURAQAO BASICA 
PREQO 


PERIFERICOS 


Usudrio 


Expan sao RAM 






16. 32 ou 
48 K RAM 




p / interface serial 
p / cassete 
p / comunicagoes 


16 K RAM - Cr$ 346 mil 500 
32 K RAM - CrS 396 mil 
48 K RAM • Cr$ 445 mil 500 


16 K RAM cl RS232C - CrS 357 mil 500 
32 K RAM cl RS232C - CrS 407 mil 
48 K RAM cl RS232C - CrS 456 mil 500 


16 K RAM 


Ate 48 K em modulos 
intemos de 16 K 


p / interface paralela 
p / cassete 
p / joystick 
p / speed-file 
2 slots livres 


16 K RAM - Cr$ 195 mil 


interface AS-100 - Cr$ 75 mil 
exp. memoria 16 K RAM - CrS 60 mil 
speed-file 1 MB - CrS 1 milhao 650 mil 
joystick - CrS 15 mil 


2 K RAM 


16 ou 48 K em 
placas externas 


p / cassete 
p / joystick 


2 K RAM - CrS 139 mil 850 


exp. membria 16 K RAM - CrS 69 mil 850 
exp. memoria 64 K RAM - Cr$ 159 mil 850 


16 ou 
48 K RAM 




p / cassete 
p / joystick 


16 K RAM - CrS 297 mil 850 
48 K RAM - CrS 429 mil 850 




16 K RAM 


... 


p / cassete 


16 K RAM - CrS 340 mil 


joy control - CrS 35 mil 
alta resolugao - CrS 210 mil 
impressora P-500 c / interface 
paralela - CrS 1 milhao 420 mil 


16 K RAM 


Ate 48 K em mbdulos 
intemos de 16 K 


p / interface paralela 
p / cassete 
p / joystick 


16 K RAM - CrS 321 mil 


sintetizador de som - CrS 40 mil 
interface paralela Centronics - CrS 40 mil 
interface p / modem - CrS 40 mil 
gravador de EPROM - CrS 80 mil 
interface p / tape-deck cl ultra 
fast - CrS 40 mil 


bem como a utilizagao de TV comum e. consequentemente. de modulador de RF. Todos esses micros tambem tern o mesmo sistema 
operacional e "lalam" as mesmas linguagens: Sinclair BASIC e Assembler. Os pregos listados referem-se a dezembro/83, estando, 
pois. sujeitos a alteragdes. 
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de vfdeo com os desenhos animados, novelas 
e filmes da famflia), um manual que a princf- 
pio 6 uma verdadeira caixa de mistArios, muita 
perplexidade e vontade de aprender. Essa ima- 
gem A comum a bastante gente, recordando os 
seus primeiros dias de usuArio. E, para muitos, 
o slnclairzinho acaba virando cachapa, um 
hobby capaz de consumir IncontAveis noites e 
fins de semana, para desespero de muitas 
esposas. 

A primeira gerapAo de usuArios de micros 
nacionais — entre os quaisos de linha Sinclair 
encontram-se entre os primeiros a serem lan- 
pados - teve que aprender praticamente sozi- 
nha. 

Conforme relembram essas pessoas. elas 
nao tinham a quern recorrer: havia poucas 
revistas e livros especial izados, e mesmo os 
entendidos no assunto, os profissionais de 
InformAtica, nAo conheciam essas mAquinas. 
A solupAo era ficar longas boras na frente do 
vfdeo tentando entender o que dizia o ma- 
nual. As primeiras lojas tornaram-se verdadei- 
ros clubes onde o pessoal se reunia para trocar 
experiences, repartir a pouca literature dispo- 
rt (vel e. com informapdes esparsas colhidas 
aqui e acolA, ir montando na cabepa uma bi- 
blioteca especial izada. Houve ate casos folcld- 
ricos como o de um determinado livro estran- 
geiro do qual havia um tinico exemplar no Rio 
de Janeiro, com cinco cbpias xerox circulando 
entre a turma de aficionados. 

Sobretudo em termos de Sinclair, conhe- 
cer ou nao InformAtica ajudava um pouco, 
mas nSo fazia uma diferenpa fundamental. 
Tanto assim que nem usuArios como Rui 
Cesar Torres — analista de suporte em equi- 
pamento IMB, 12 anos de profissAo, conhece- 
dor de vArias linguagens (inclusive o BASIC) 
— escaparam das dificuldades de aprendizado. 

Ele teve acesso a um dos primeiros ZX81 
lanpados na Inglaterra (um gerente da sua 
empresa, inglAs, trouxe e Ihe emprestou por 
algum tempo) e logo que saiu aqui o TK82-C, 
comprou um. Apesar de j A conhecer bem o 
BASIC, conta ele, a linguagem que mais o 
ajudou a compreender o Sinclair BASIC (que 
ele considera muito poderoso) foi o Fortran. 
Segundo ele, ambas as linguagens tAm uma 
estrutura muito parecida, como por exemplo 
o comando FOR/NEXT (igual ao DO do For- 
tran) e o fato de s6 ser permitida uma apAo 
ap6s o IF, entre outras semelhanpas. 

As dicas mais especfficas sobre o equipa- 
mento (incluindo assuntos tais como sub-roti- 
nas, I6gica, desbloqueio de programas e mes- 
mo a troca de programas), recorda Rui, eram 
conseguidas atraves da correspondAncia que 
mantinha com usuArios de diversos pontos do 
pals, cujos nomes encontrava na sepAo de clu- 
bes de MICRO SISTEMAS, entAo em seus 
primeiros numeros. 

O manual do equipamento tambAm foi util 
para aprender o BASIC, mas quando ele quis 
ir para o Assembler, o jeito foi comprar dois 
livros estrangeiros: Z80 Assembly Language 
Programming de Leventhal, e Mastering Ma- 
chine Code on Your ZX81 or ZX8Q. de Ba- 
ker, este ultimo "tAo bom que vocA encontra 
publicapoes nacionais calcadas nele". 

Assim como Rui, quern jA A programador 
BASIC e esta habituado a outras linhas de 
equipamentos tern que passar por um perfodo 
de readaptapao atA dominar certas particulari- 
dades do BASIC Sinclair. A comepar pela 
ausAncia das instrupdes DATA, READ e 
RESTORE que. alias, constltuem-se talvez no 
ponto de maior polAmica entre os defensores 
e adversaries da familia Sinclair: estes procla- 
mando que a falta dessas instrupdes torna 
essas mAquinas imprestaveis para qualquer 
aplicapao mais "sAria" ou principalmente. de 



Os pros e os contras dos micros nacionais 



PONTOS POS1TIVOS 



- A manutenpao do mesmo Sistema 
Operacional fez com que todos os micros 
fossem extremamente compativeis entre si. 
Dessa forma, uma imensa biblioteca de soft- 
ware podera ser formada. pois o numero 
total de micros colocados no mercado supe 
ra a casa dos 250 mil. 

- A velocidadc de jpvapao, apesar de 
alguns a ucharcm lenta. e bastante segura e a 
expcricncia tem-nos mostrado que os maio- 
res problcmas resident na ma utilizapao do 
gravador. Alguns testes realizados nos nossos 
equipamentos mostraram que um aumento 
de mais de 4.5 vezes na velocidade podc 
acarrctar problemas de leitura/gravapao. 

- A documentapao e razoavelmente 
clara quanto a utilizapao do Basic; porem. 
praticamente inexistem informapdes, no 
manual, sobre a programapio em Assembler 
(sob esse aspecto e bom lembrar que os p ri- 
me iros TKs nem mesmo manual possuiam). 



PONTOS NEGATIVOS 



- A manutenpao, em equipamentos 
com 16K de RAM interna, da rotina original 
de Scroll, causando uma Jem ora desneccssa- 
ria para um CLS apos varios Scroll (isso so 
tern sentido para equipamentos com I ou 2 
K de RAM). 

- O pouco aproveitamento da area de 
enderepamento entre a ROM e a RAM (po- 
deriam ser colocadas ai rotinas de Scroll cm 
todas as direpdes e rotinas cspeciais de con- 
trole de video). 

- A falta de informapdes tecnicas a 
respeito dos projetos de hardware (alguns 
possuem os intejpados rasp ad os, o que invia- 
biliza ao usuarto inplcmentapdes simples 
como video direto, ou inversao de video). 

- A falta de uma rede de assistencia 
teenies realmente eficiente e credenciada 
pela industria. 



natureza comercial; aqueles dizendo que o 
DATA. READ e RESTORE sd fazem real- 
mente falta nesses equipamentos a quern nao 
sabe programA-los direito, uma vez que essas 
instrupoes podem ser perfeitamente simuladas 
de outras maneiras. 

A obrigatoriedade de uso do comando 
LET pera a atribuipAo de valor 4s variAveis e a 
impossibilidade de se col oca r mais de um co- 
mando por linha sao outras caracterfsticas 
que podem causar estranheza. 

Essas diferenpas fazem 4s vezes usuArios de 
TRS, Apple e outras mAquinas maiores torce- 
rem o nariz para os pequenos Sinclair. Mas 
quern tiver a curiosidade maior que o precon- 
ceito e se dispuser a "fupar'' um pouco no 
TK, CP-200 (ou mesmo no ZX-81 . . .)irA, sem 
duvida, descobrir coisas interessantes. Confor- 
me diz Jose Rafael Sommerfeld programador 
profissional hA quatro anos, trabalhando com 
Cobra 305, em LTD e Cobol. usuArio de 
CP-200 e TK-85, "muitas dessas aperentemen 
te deficiencies sao, na verdade, vantagens". E 
64 um exemplo: para se imprimir um career 
de uma string num TRS, utiliza-se o comando 
MID$. 0 Sinclair nAo tern esse comando por- 
que na verdade nao precise dele; basta digitar 
PRINT A$ (2), por exemplo, e o sepundo 
carAter da string sai impresso na tela. E mais 
rApido, mais simples e ocupa menos memdria. 

Antonio Carlos Salgado Guimaraes. enge- 
nheiro, atualmente trabalhando com um IBM/ 
370 no Laboratdrio de ComputapAo Cientffi- 
ca do CNPq, no Rio de Janeiro, vai mais longe 
ainda na defesa do equipamento Sinclair: "Em 
termos de custo/beneffcio ele 4 o melhor; 
vocA tern mais do que pagou. E se conseguir 
implementar bem, fica melhor que o TRS". 

ProprietArio de um TK82-C hA mais de um 
ano, Antonio Carlos jA fez uma implementa- 
pAo de hardware (um inversor de vfdeo, no 
qual gastou Cr$ 1 mil) e vArias de software: 
tern em fita todas as funpdes especiais do 
TK85 (high speed, verify etc ), que carrega no 
82-C feito monitor; tern compilador BASIC 
M-Coder e mais uma sdrie de programas utili- 
tArios. 

Antonio Carlos destaca a facilidade que 
esses equipamentos oferecem para o aprendi- 
zado de BASIC e Assembler, acrescentando 
que as prdprias limitapoes de recursos dessas 
mAquinas estimulam os usuArios a pesquisa- 
rem. adquirindo conhecimentos que mais 



tarde podem ser empregados em outros 
computadores mais complexos. Ele exempli- 
fica, inclusive, dizendo que muitos dos con- 
ceitos de computapao que aprendeu, d eve-os 
ao seu TK e nao ao/370 com o qual trabalha. 

Lamentando a falta de bom software — 
mesmo que pirateado do exterior — e de peri- 
fAricos no mercado brasileiro. Antonio Carlos 
conta que aprendeu Assembler sozinho, atra- 
ves de livros e revistas estrangeiros, e queixa-se 
dos manuais dos nossos equipamentos: "As 
informapdes sao mfnimas. Tem-se a impressAo 
de que eles (os fabricantes) escondem o jogo". 

Dificuldades A parte, os usuArios dos 
micros Sinclair sSo unAnimes em ressaltar a 
capacidade desses equipamentos. Sua excelen- 
te manipulapao de strings e de matrizes (que 
substitui o DATA/READ/RESTORE), a parte 
grAfica, que permite fazer bastantes coisas, e os 
comandos por uma unica tecla, que propor- 
cionam maior comodidade, rapidez de digita- 
pAo e economia de memdria. Isso sem falar 
nas poderosas funpdes de edipAo que indicam, 
no momento mesmo da digitapAo, se hA erros 
de sintaxe e ainda por cima most ram o local 
exato onde o erro ocorreu Dessa maneira, a 
depurapAo do programa 4 feita juntamente 
com a sua digitapAo e quando um programa 
comepa a ser executado num Sinclair, ele pode 
center erros de Idgica, mas nunca um errode 
sintaxe. 

"A boiapAo do (Clive) Sinclair foi muito 
grande", diz Rui Cesar Torres, "vai ser diffcil 
alguAm fazer um computador melhor e a um 
custo manor". E complete: "Se a pessoa nAo 
tiver grartdes ambipdes de cor, som e alta reso 
lupAo. e se nAo quiser gastar muito, o Sinclair 
4 mAquina pri vida toda". 



ApuragSo SP: CISudia Ramalho e Stela 
Lachtermacher 

ApuragSo RJe texto final: Ricardo Inojosa 

MICRO SISTEMAS agradece a todos os que 
colaboraram nessa reportagem, que nSo teria 
sido possfvel realizar sem a experiencia adqui- 
rida na operapao diAria do CPD da Re vista. 
Por esse motivo. agradecemos de publico o 
grande apoio que nos tern sido prestado pelas 
empresas Proldgica e Microdigital. f 
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SOLUCAO NM) E PROBLEMA 




importa o tamanho 



problema, 



temos a solucao na medida exata ! 



CP-200 com 

SPEED 




LINGUAGEM BASIC 
16 K DE MEMORIA 



TRANSFERENCIA 14VE- 
ZESMAIS RAPID A 




MODULAR 
LINGUAGEM BASIC 
48 K DE MEMORIA 

compatTvel COM 

SOFTWARE DO CP-500 




MICRO: 



IMPRESSORA: 



• LINGUAGENS COBOL, • VELOCIDADE 130 CPS 

BASIC E FORTRAN • MATRIZ 7 x 9 

• 64 KDE MEMORIA • 132 COLUNAS 

• DUAS UNIDADES DE • ORIGINAL +5 COPIAS 
DISCO 



ACESSORIOS 



SOFTWARE • MESAS • DIS 
QUETES • ARQUIVOS • 
FORMULARIOS CONTI- 
NUOS • ESTABILIZADORES 
DE TENSAO • UNIDADES 
DE DISCO FLEXIVEL • ETC. 



APROVEITE! 



promoqOes especiais • 



FINANCI AMENTO • LEA 



SING «CONS0RCI0 «CAR- 



TOES DE CREOITO: CREDI- 



CP-500 



\ 



a 



LINGUAGEM BASIC 
48 K DE MEMORIA 
ATE 4 DRIVES 
SAIDA paralela se 

RIAL 



P-500 




VELOCIDADE 100 CPS 
MATRIZ 9x7 
INTERFACE: 
PARALELA 
SERIAL 




• VELOCIDADE 200 CPS 

• MATRIZ 7x9 

• INTERFACE: 
PARALELA, 

SERIAL 



TRACADOR 

GRAFICO 




• 8 PENAS 

• Area de tracado 

10 x 15 POL. 

• INTERFACE RS-232 



filcres 

Filer e* Importapao a Represantapoes Ltda. 

Rua Aurora. 165 - CEP 01209 - Sao Paulo - SP 
Telax 1131298 FI LG BR - PBX 223-7388 - Ramais 2.4, 

12. 18, 19 - Diratos: 223 1446, 222-3458, 220 5794 a 
220-9113- Raembolso — Ramal 17 Dirato: 222-0016 - 220 7718 



CARD, NACIONAL, ELLO. 











Com a ajuda deste programa, os usuJrios do PC- 1211 poderao calcular 
mais rapidamente os Momentos Fletores de uma viga contmua 



Um pocket-programa 
de vigas contmuas 

Edison Waetge Junior 



E ste programa. dcscnvolvido para o PC 1211, calcula os 
Momentos Fletores nos apoios de um viga continua 
com ate quatro vaos (cinco apoios). submetida a uma 
carga unitdria concentrada passeanJo de quinto em 
quinto de cada vao. Considera-se a viga com Momento de 
Indrcia constante. 

Atravtfs do exemplo a seguir, poderemos analisar a nomen- 
clatura utilizada pelo programa: 




— 


















Linha de Influencia influencia 




10: REM "LINHA D 


0>» ENG<0.5> 


EM X»"1X 


295:S*X*<B-X>*<2 


390: IF Z=?THEN 5 


90 




E INFLUE NCI A 


■ "IL 


185: IF F=0THEN 2 


*B-X>'<B*B> 


90 


510*F0R W=1T0 4 




m 


90: G b 1<'<2+A/B*‘: 


00 


300: T=X*A 


400: FOR U=1T0 4 


515*XaD*W/5 


20J INPUT "NUMER 


2-F) > 


190*Y»F*<0*R-S>/ 


305: PRINT "CARGA 


410*R«X*<C*C-X*X 


520*R“X*<D*D-X*X 




0 DE VAOS (M 


95: IF Z*2THEN 1 


<1-F*0> 


EM X="l T 


V<C*C> 


)/<D*D) 




AX 4>-"»Z 


40 


195: PRINT Y 


310:Y*G*<N*R-SV 


415: S*X*<C-X)*<2 


525* S=X*<D-X>*<2 


25: IF 2<2THEN 2 


100:H-l/<2+B'C*< 


200: Y=0*<F*S-RV 


< 1-G*N) 


*C-X)'(C*C> 


*D-X)/’<D*D) 




0 


2-G>> 


<1-0*F> 


315: IF F-OTHEN 3 


420* T=X+A+B 




30: IF Z>4THEN 2 


105: IF Z-3THEN 1 


205: PRINT Y 


25 


425: PRINT "CARGA 


535: PRINT "CARGA 




0 


25 


210: IF NaOTHEN 2 


320: PRINT -Y*F 


EM X s " I T 


tn x* i t 


35: INPUT "L<1> 


110: I=l/<2+C'D*< 


65 


325: PRINT Y 


430IY»B*<M*R-SV 


540* Y“I*<L*R~SV 




= "IA 


2-H) ) 


215IY— Y*N 


330: IF NaOTHEN 3 


< 1-H*M> 


< 1-I*L) 


1 40: INPUT "l<2> 


115:M»1/<2*D/'C*< 


220: PRINT Y 


85 


435* IF FaOTHEN 4 


545« IF F*0THEN 5 




a "IB 


2-L>) 


225: IF Z-2THEN 2 


335:Y=N*<G*S-RV 


45 


55 


45: IF Z-2THEN 7 


120: GOTO 130 


65 


<1-N*G) 


440* PRINT Y*G*F 


550* PRINT -Y*H*G 




0 


125: M*L 


230: IF M=0THEN 2 


340: PRINT Y 


445* PRINT -Y*G 


*F 


50: INPUT "L<3> 


130:N-l/<2+C/B^< 


65 


345: IF Z=2THEN 3 


450: PRINT Y 


555* PRINT Y*H*G 




- «IC 


2-M>> 


235: Y*-Y*M 


85 


455* IF MaOTHEN 4 


560* PRINT -Y*H 


55: IF Z-3THEN 7 


135: GOTO 145 


240: PRINT Y 


350: IF MaOTHEN 3 


90 


565* PRINT Y 




0 


140: N=L 


245: IF Z*3THEN 2 


85 


460:Y=M*<E*S-RV 


570: IF L-OTHEN 5 


60* INPUT "L<4> 


145:0=l/<2+B/A*< 


65 


355: Y*-Y+M 


<1-M*H> 


85 

575:Y«L*<I*S-RV 




■ "ID 


2-N>> 


250: IF L=0THEN 2 


360: PRINT Y 


465* PRINT Y 


70: PAUSE "PRIME 


160: FOR U=1T0 4 


65 


365: IF Z-3THEN 3 


470* IF Z=3THEN 4 


( 1-L*I ) 




IRC AP0I0" 


165:X=A*W'5 


255»Y— Y*L 


85 


90 


580* PRINT Y 


75: INPUT "SIMP< 


170*R=X*CA*A-X*X 


260: PRINT Y 


370: IF L=0THEN 3 


475: IF LaOTHEN 4 


585* NEXT M 




0)f ENG(0.5) 


>/<A*A> 


265: NEXT U 


85 


90 


590* PRINT " 




= "IL 


175: S*X*(A-X> , *<2 


280: FOR W=1T0 4 


375: Y=-Y*L 


480:Y— Y*L 


FIM 


80: PAUSE "ULTIM 
0 AP0I0" 

85: INPUT "SIMPC 


*A-X>/<A*A> 
180: PRINT "CARGA 


285: X=B*W^5 
290:R*X*<B*B-X*X 
>/<B*B> 


380: PRINT Y 
385: NEXT U 


485* PRINT Y 
490* NEXT U 
495* IF Z*3THEN 5 


600* END 



42 



MICRO SISTEMAS, fevereiro/84 




Em primeiro lugar, os dados de entrada. O proprio progra- 
ma ira solicitar, pela ordem, os seguintes dados: 

1) numero de vaos (Z - 2, 3 ou 4). No exemplo, Z = 4; 

2) distancia entre apoios, de L( 1 ) at<5 L(Z). No exemplo, L( 1), 
L(2), L(3) e L(4); 

3) coeficientes de transmissao para os apoios extremos, que, 
no caso de engastamento, valem 0.5, e para os apoios simples 
valem 0. No exemplo, pela ordem: 0.5 e 0. 

Passemos agora para os dados de saida. Para cada posujao X 
da carga P. contada a partir do apoio A, serffo impressos os 
Momcntos Fletores de cada apoio. No caso de nSo estar conec- 
tada a imprcssora, os resultados podem ser obtidos pressionan- 
do-se a tecla ENTER. 

Paia agilizar o programa, os Momentos Fletores nulos sao 
desconsidcrados. Assim, para o nosso exemplo, os dados de 
saida para cada posi^ao X senam: M(A), M(B), M(C), e M(D); 
se o apoio A fosse do tipo simples, as sai'das senam : M(B ), M(C) e 
M(D); da mesma forma, quando a carga estiver sobre urn dos 
apoios, todos os Momentos Fletores serao nulos. 

Na figura 1 temos urn outro exemplo, no qual podemos 
acompanliar os procedimentos de cdlculo efetuados pelo pro- 
grama. Observe que as unidades sao as mesmas fornecidas na 
entrada. No nosso exemplo. tf.m. 

Como observafao final, alertamos que se o usuirio desejar 
fazer os calculos para cada decimo de vao, deve alterar as li- 
nhas 160, 280, 400 e 510 para FOR W=1 TO 9,e incluir asli- 
nhas: 165 X= A # W/10, 285 X= B*W/10, 405 X=0/*W/10 e 
515 X= D*W/10. 



BIBLIOGRAF1A 
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if L( 1 ) = 10m 

(A) 

Entrada: 



Saida: 



i if L(2)-15m 

(B) 

RUN 

"NUMERO DE VAOS (MAX 4) * 1 
" L ( 1 ) = " : 10 
"L( 2 ) - " : 15 

"PRIMEIRO APOIO" 

"SIMP(0), ENG ( 0.5) > " : 0 . 5 
"ULTIMO APOIO" 

"SIMP( 0 ) , ENG (0.5) » " : 0 



CARGA EM X • 2 

-1.387 M( A) 
-0.107 M(B) 
CARGA EM X » 4 

-1.760 M( A) 
-0.320 M(B) 
Ou, resumindo: 

X MCA) 



1b vao 



2fi vao 



“T7567 

-1.760 

-1.440 

-0.747 


-6.167 

-0.320 

-0.480 

-0.427 


0.720 

0.960 

0.840 

0.480 


-1.440 

-1.920 

-1.680 

-0.960 



Edison Waetge Junior 6 formado em Engenharia Civil pela Universidade 
Mackenzie e trabalha na Ford do Brasil no Departamento de Engenharia. 






CIBERNE 



O IOITHMI Out VOC* Maid 



CIBERNE * a m an avangada a iofijncada linha de totfware para microcomputadorei. criada 
para livrar voce den mconvemenies de produgdei amedoras ou de origem duvidota Com 
CIBERNE voc4 teri uma divemlicada linha de programa* novo*, (engadoi period team erne 
em pacotet econdmrco*. Com gravagfo profnaional e em embalagem mv.olAvel. CIBERNE 
oferece a voce garantia lolal em qualquer lugar do Brasil. 



PROGRAMAS EM FITA PARA TK42. 83. 86. CP 200 E COMPATIVEIS 



Com o enclutivo FLASH SISTEM que permite um carregamenlo 6 veaes man itpido 
que o normal, tern qualquer modilicacfc no equipamento 



BIC MOS A CIA PKTHULHA GALACT1CA 



iriirou • Mirnaio 



CASCA.ACOBRA e NAVE MAE ■ NIGHT GUNNER a PIRAMIOE INCA 

CRAZY KONG • F UNGOS MUT ANTES a ALERTA VERMELHO a SABOTAGEM 



CENTOPflA 
F ROGGE R 
SUCURI 



a GALATICA 
a SOS VEGA III 
• PERSEGUIDOR 



a POLARIS 
a DUELO 
a SCRAMBLE 



UTILITARIOS 



SOG Uma nova a man podarota wvlo da ROT I 
a wu wnucional Satama Oparacional Graf ICO 
MERGE 

PARA BREVE 



a OAVENTUREIRO 
a MAZOGS 
a USS ENTERPRISE 



a ASSEMBLER 
a DESASSEMBLER 
a COMPILADOR BASIC 



a O ME RCA DOR 
a STAROUEST 
a ZARAKS 



a ESTRELANEGRA 
a CRIST AL MAGICO 
a GUERRILHA COSMICA 



• ORQA I (Orcamanio domamcol 

• ARO I (Arquivo da Dado*) 
a CASHFLOW 



EM TODO 0 BRASIL NAS MELHORES LOJAS DO RAMO. 



Informacoes, Distribuip3o e Vendas: 

JVA - MICROCOMPUTADORES LTDA. 

Av. Grapa Aranha, 145 s/loja 01 - Rio de Janeiro - RJ 
CEP 20.030 Tel.: (021 ) 262 6968 






ICRO PROCESS 



COMPUTADORES LTDA. 

- MICROCOMPUTADORES - TK.2000/85/83 - CP. 500/300/200 
"APPLES" 

- MONITORES IMPRESSORAS- PAPEL.FITAS, DISKETTE, ETC. 

- MANUTENQAO EQUIPAMENTOS (AVULSO E P/ CONTRATO) 

- PROGRAMAS DE CONTABILIDADE, ADMINISTR. IM0VEIS. 

- ELABORACAO DE PROGRAMAS ESPECIAIS 

- PERSONALIZACAO DE PROGRAMAS PARA FIRMAS E 
PROFISSIONAIS LIBERAIS 

- CONTROLE DE CLIENTES, TRATAMENTOS E CONTAS PARA 
CONSULT0RIOS medicos e dentArios 

- PACOTES DE PROGRAMAS PARA ADVOGADOS, E 
CORRETORES DE VALORES E AC0ES 

- OFERTAS ESPECIAIS (ORTN) 

• SUPERVISICALC (APPLE) (CP. 500/23) 20 

• OPEN MARKET/OVERNIGHT (CP. 500/23) 50 

• CARTEIRA DE AC&ES (CP. 500/23) 40 

• CONTROLE DE OCORR6NCIA PROCESSUAIS 

(CP. 500/ APPLE) 100 

- VIDEO GAMES (APARELHOS E CARTUCHOS) 

- REVISTAS, PUBLICAC&ES TECNICAS 

- PRECOS DE SAO PAULO 

- DESPACHAMOS VIA VARIG POR NOSSA CONTA 

AMPLO FINANCIAMENTO 

TEL: 64-0468 

Alameda Lorena, n° 1310 - CEP 01424 
Sao Paulo 

ESTACION AMENTO PARA CUENTES ## * 
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A Comutacao 




Serves n» 

leinformatica 



iunidade de 



o'^S^W^ procedim 

1 

1 O^^asinlo^^ 
1 he infbm' a C° es 



TELEFONICA 



nacional 
de TELEX 



° SS» £ 

oS^-r 

D de teleinformat»ca- 
q Cobertura nadona 




1 



de Pacotes vai 
o da Teleinform&tica. 



1954 esta pinlando um quadno muifo 
pnomissorpara qucm vive o mundo da 
rddnformatica. 

1954 e o ano do langamento dos 
Servigos Rcnpac, oferecidos atraves da Rede 
Publica de Comunicagao por Comutagao de 
Pacotes, via Embratel. 

Com os Servigos Renpac, os usuarios 
compartilham recursos de transmissao 
por mensagens divididas em btocospadrao, 
os pacotes. 

De imediato, isso quer dizer inumenos 
beneftcios que dao maior flexibilidade 
e melhor desempenho a comunicagao de 
dados. 

No quadno ao lado esfao algumas 
das principals vantagens dos Servigos 
Renpac. 

Has ainda ha alguns Donfos muito 
importantes a serem decididos. A serem 
decididos com voce. 

Procure a Embratel e tale das 
necessidades da sua empresa, seja ela 
grande, media ou pequena.A&nbratcl 
acredita que ninguem melhor do que voce 



para saber o que e melhor para voce 
mesmo. E se voce e um profissional liberal, 
feca tambem o mesmo. Ha sempre uma 
aplicagao dos Servigos Rapac para atender 
economkatnente ao seu probfam E tudo 
com a conhecida efid^noa da Embratel. 

Isso vale tainlxin para voce que 
produz equipamate. Atiivil, o langamento 
dos Servigos Renpac vai criar uma denvanda 
por novos itens que a sua industria pode 
romecer. 

Para fecilitar este nosso dialogo, aqui 
abaixo, a direita, esta um cupom para voce 
prcencher e mviar a Embratel. Envie hoje 
mesmo. Nos entrarcmos em contato com 
voce. De sua participagao efetiva para 
o melhor uso dos Servigos Renpac. 

Com ela, e so com ela, a Bnbratel 
pode dar os netoques fimis ryo quadno de 
vantagens que os Servigos Renpac vao 
tnazer para voce. 

Minist6rio das ComunicagOes 




Empresa do Sistema TELEBRAS 
a sua Empresa de Comunicagao de Dados 



com voce 
retoques. 



i 



■>« 



Empresa Brasrieira de Tetecomumcaqdes S. A. ■ Embratel 
Departamento de Coordenagao Comeroal 

Av. Presidente Vargas, 1.012 -sala 912- CEP 20071 - Rio de Janeiro - RJ 

NOME 

EMPRESA 

CARGOfUNQAO 

ENDEREQO 

CEP CIDADE 



ESTADO. 



Otrmn. Mmfrt 



Um duelo entre a Inteligencia Artificial e a Natural nos jogos de 
tabuleiro mostra a importancia da programagao de jogos 



Inteligencia 
Artificial - 1 

Antonio Costa 
Cristina Helena Bovo 



A Inteligencia Artificial esti se 
tornando cada vez mais popu- 
lar nos Estados Unidos, Euro- 
pa e Japfo. Para se ter uma 
idlia disso, basta notar que um grande 
numero de jornais e revistas j & publica- 
ram ensaios sobre ela. Entre as revistas, 
vale a pena citar Newsweek e Time; en- 
tre os jornais, o vetusto Le Monde. Tam- 
Wm 6 prova da popularidade dessa cien- 
cia o fato de robos inteligentes, cons- 
trufdos nos centros de pesquisa amen- 
canos, serem escolhidos como paranin- 
fos por jovens colegiais. 

E mais: os cursos de Inteligencia Ar- 
tificial nas Universidades Amencanas es- 
tSo tSo concorridos que 6 dificilimo con- 
seguir uma vaga neles. Enquanto isso, 
JapSo e Estados Unidos lan^aram-se 
num projeto para construir um compu- 
tador inteligente antes do fim do s^culo 
(o chamado computador de 5? gera^o) 
e alocaram grande quantidade de recur - 
sos humanos e materials para levar 
adiante o referido projeto. 

Os encantos da ciencia dos compu- 
tadores pensantes e dos robos estSo co- 
meijando a seduzir tamWm os brasilei- 
ros. Em SSo Paulo, existem grupos de 
estudo sobre Inteligencia Artificial e es- 
tudantes da USP estao fun dan do uma 
sociedade dedicada a esta ciencia. 

Quais as razdes para a subita popula- 
ridade alcan^ada pela Inteligencia Arti- 
ficial? A primeira razSo 6 de ordem prS- 



tica. Muita gente pensa que os japoneses 
e amencanos estao investindo tanto na 
Inteligencia Artificial que ela esti desti- 
nada a ocupar uma posi^o dominante 
na Informitica do futuro. A segunda 
razSo deve ser procurada no espfrito 
aventureiro do homem. Este espfrito faz 
com que as pessoas se encantem com 
robos inteligentes e mSquinas pensantes. 

IMPORTANCIA 

da programacAo de jogos 

As piramides do Egito sSo, sem du- 
vida, uma das maiores realizafdes da 
Engenharia Civil. Para construi-las, os 
antigos egfpcios tiveram que dominar 
complexas t^cnicas de admimstra^o, 
transportes, planejamento, fisica dos 
materials, etc. E para dominS-las os en- 
genheiros do Vale do Nilo usaram um 
processo muito simples. Eles tentaram 
construir uma piramide... ela desmoro- 
nou; tentaram construir outra, que tam- 
bdm desmoronou. E cada piramide que 
desmoronava trazia novos conhecimen- 
tos aos egfpcios. 

O m^todo egfpcio de pesquisa ainda 
6 esporadicamente usado. A maior parte 
dos engenheiros, entretanto, n5o o usa. 
Os engenheiros aeroniuticos, por exem- 
plo, nSo testam um novo tipo de aviso 
construindo um protdtipo e fazendo um 
voo experimental de Paris a Nova Iorque 
com passageiros a bordo. Eles cons- 



troem um modelo pequeno e barato do 
aviso e o testam num tunel de vento. 

Os jogos e quebra-cabe^as sSo t£o 
importantes para o especialista em Inte- 
ligencia Artificial quanto os modelos de 
aviOes para os engenheiros aeronSuti- 
cos. £ atrav^s de jogos que novas t6cm- 
cas sSo descobertas e testadas. Os jogos 
de aventura, por exemplo, foram inven- 
tados por especialistas em Inteligencia 
Artificial para experimentar mdtodos de 
processamento da linguagem natural. 

A importancia da programafao de 
jogos 6 tamanha que os industrials japo- 
neses, gente prStica que s6 investe em 
coisas de retorno garantido, colocaram o 
desenvolvimento de um progiama capaz 
de jogar “GO” entre as suas metas prio- 
ritSrias. Eles sabem que tal programa 
permitirS a seus cientistas descobrir e 
testar m^todos de reconhecimento de 
padrOes fundamentals para dar ao Japio 
a lideran«^ no campo da InformStica. 

A ARVORE DE JOGOS 

Uma estrutura como a da figura 1 6 
denominada Srvore. Ela 6 constituida 
por pontinhos (n6s) unidos entre si por 
curvas contfnuas (ramos). O n6 de uma 
Srvore 6 raiz se nSo for possfvel chegar a 
ele percorrendo ramos no sentido des- 
cendente. Uma folha 6 qualquer n6 do 
qual nSo se pode sair percorrendo a Sr- 
vore no sentido descendente. No exem- 
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plo de drvore da figura 1, A 6 raiz e L, 
M, N, F, G, H, I, J e K sdo folhas. Um 
conjunto de n6s esti no nivel n se, par- 
tindo de qualquer um dos nos dele, che- 
garmos & raiz, apos percorrer n ramos no 





Figura 4 - Os lances possfveis de X. seguidos dos lances posslveis de 0 



sentido ascendente. Na figura 1, os n6s 
L, M e N estSo no nivel 3. 

0 conceito de drvore foi introduzido 
propositalmente de maneira pouco rigo- 
rosa para evitar o formalismo matemdti- 
coeo jargSo t^cnico que poderia assus- 
tar quern estd se miciando na Informdti- 
ca. 

No estudo dos jogos de tabuleiro, t 
comum representarmos as continua^Ses 
possfveis de uma posi^fo por uma £rvo- 
re. Suponhamos, por exemplo, que a si- 
tua^Jo possfvel num tabuleiro de jogo 
da velha seja a mostrada na figura 2. A 
figura 3 mostra os tres lances que o joga- 



Figura 2 - 
Siruafdo 
possivel 
em Jogo 
da Velha 



0 


X 




X 


X 


0 




0 





dor X pode fazer. Em cada uma das tres 
situafdes que poderSo surgir ap6s o lan- 
ce de X, o jogador 0 poderd fazer dois 
lances. A figura 4 mostra lances possl- 
veis do jogador 0, a partir dos lances 
possfveis de X. 

Se representarmos cada um dos tabu- 
leirinhos da figura 4 por um n6, teremos 
a estrutura denominada drvore de jogos. 



A figura 5 mostra a drvore de jogos cor- 
respondente d situa^o da figura 4. 

anAlise de uma posi^ao 

Vamos supor que a drvore de quatro 
nfveis associada a uma posisdo de um 
jogo de tabuleiro qualquer seja dada 
pela figura 6. O tabuleiro estd na posi- 





9 ao representada pelo n6 A. O problema 
do computador e escolher um entre os 
lances que levam as posi^Oes representa- 
das pelos n6s B, C ou D. Para isto, ele 
avan 9 a atd as folhas da drvore e usa um 
critdno qualquer para avalid-las. Esta ava- 
liafao das posifdes representadas pelas 
folhas 6 denominada avalia^o estdtica e 
6 feita por um programa chamado Ava- 
liador-estdtico. 

Quanto melhor for para o compu- 
tador a posi^ao representada por uma 
folha, mais alto d o valor atribuido a ela 
pelo Avaliador-estdtico. No xadrez, por 
exemplo, se o computador estiver jogan- 
do com as brancas, quanto mais pe$as 
brancas houver, mais alto 6 o referido 
valor. E quanto mais pefas pretas hou- 
ver, mais baixo 6 o valor. Se o rei branco 
estiver sob ataque, o valor decresce. Se o £ 
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rei preto estiver sob ataque, o valor cres- 
ce. 

0 computador tentard escolher as jo- 
gadas que levem ao maior valor possivel. 
Ele sabe por^m que seus temiveis ad- 
versaries humanos, dotados de uma at£ 
agora invicta Inteligencia Natural, tenta- 
rSo escolher os lances que levem ao me- 
nor valor possivel. Devido a isto, o 
computador 6 denominado Maxi mi za- 
dor e o humano Mini mi za dor. 

No nivel quatro, quern vai escolher 
os lances 6 o Minimizador e, portanto, o 
lance de menor valor serd escolhido. 
Dentre as folhasM,NeKserd escolluda a 
folha K, que vale tres. Portanto, o valor 
que o computador conseguird se ele che- 
gar a posifSo I 6 pelo menos tres. (Ele 
poder4 conseguir cinco se a Inteligencia 
Natural “bobear”.). Se ele chegar em J, 
conseguird cinco pontos. (Existe a possi- 
bilidade de ele conseguir oito, mas 6 
bom n£o contar com isto.) Podemos di- 
zer entlo que o valor do n6 I t tres e o 
valor do n6 J t cinco. Quern vai escolher 
entre I e J 6 o Maximizador. 0 valor es- 




Listagem 1 




10 REM ••••••••• DEMONS TRAC AO DO ALBORITMO MINIMA* ••*«*•**• 

12 REM 

40 REM PILHA ARMAZENA VARIAVEIS ROT I NAS RECURSIVAS. 

50 REM BETA MELHOR VALOR DO PONTO DE VISTA DO MINIMIZADOR. 

60 REM ALFA MELHOR VALOR DO PONTO DE VISTA DO MAXIMIZADOR. 

70 REM MNI NIVEL EM QUE O AVAL I ADOR ESTATICO VAI ATUAR. 

80 REM NI INDICADOR DE NIVEL. 

90 REM I CONTROLE DE FOR ... NEXT. 

100 REM PP PONTEIRO DE PILHA. 

110 REM NT NUMERO DE LANCES DISPONIVEL NUHA DADA POSICAO. 

120 REM ML MELHOR LANCE DO MINIMIZADOR OU DO MAXIMIZADOR 
APOS UMA BUSCA PARC I AL . 

130 REM CRT BANDEIRA INDICANDO DUE O OERADOR DE 

MOV I MENTOS NAO ENCONTROU NENHUM LANCE. 

140 REM VA VALOR CALCULADO PELO MAXIMIZADOR E PELO 
MINIMIZADOR. 

150 REM 

160 DIM PILHA ( 200) 

170 BETA-9991 ALF A— 9091 CLS 

180 INPUT "EM QUE NIVEL 0 AVAL I ADOR ESTATICO VAI ATUAR" I MNI 

190 ni- 0 :pp- 0 : l-i 

200 BOSUB 900: REM MAXIMIZADOR 
210 PRINT"0 MELHOR LANCE E" "I ML 

220 PRINT ”0 VALOR OBTIDO COM ESTE LANCE E" "I VA 
230 END 
270 REM 

900 REM— —————— MAXIMIZADOR ————— —— 

910 REM VARIAVEIS LOCAIS: I, NT, NI, ALFA, BETA, ML 
920 REM— ———————————— 

930 IF NI-MNI THEN BOSUB 3000: RETURN: REM SE CHE SAMOS A 
UMA FOLHA, CHAMAMOS AVAL I ADOR ESTATICO. 

940 BOSUB 4000: REM BERADOR DE MOV I MENTOS 

950 IF NT-0 THEN BOSUB 3000: RETURN: REM SE NAO HA MOV I MENTOS 
CHAMAMOS 0 AVAL I ADOR ESTATICO 
960 ALFA— 999 

970 REM VAR I ANDO I DE I ATE" NT, EXAMINAMOS TODOS OS 
MOV I MENTOS OERADOS. 

980 FOR 1-1 TO NT 

985 IF ALFA >- BETA THEN PRINT STRING* (2*NI ,"-"> I 

: PRINT "OCORREU UMA PODA ALFA" : I -NT: BOTO 1070 
990 BOSUB 5000: REM COL OCA VARIAVEIS LOCAIS NA PILHA 

1000 ni-ni*i:rem desce um nivel 

1010 PRINT STRING*(2*NI,"-">|"NIVEL:"INI|"LANCE:"|I 

1020 BOSUB 2000: REM CHAMA MINIMIZADOR 

1030 BOSUB 6000: REM RESTAURA VARIAVEIS LOCAIS. 

1040 REM 0 MINIMIZADOR COLOCOU 0 VALOR DESTE LANCE EM VA. 
1050 REM ALFA DEVE CONTER O VALOR DO MELHOR LANCE DO 

PONTO DE VISTA DO MAXIMIZADOR E ML DEVE CONTER 
0 MELHOR LANCE. ASSIM, SE VA7ALFA, ALFA DEVE 
SER FEITO IQUAL A VA E ML, IBUAL A I. 

1060 IF VA >ALFA THEN ALFA— VA: ML- 1 
1070 NEXT I 
1080 V A- ALFA 
1090 RETURN 



2000 REM— —————— MINIMIZADOR ——————— 

2010 REM VARIAVEIS LOCAIS: I, NT, NI , ALFA, BETA, ML 

2020 REM— — —————— ————————— 

2030 REM 

2040 IF NI-MNI THEN BOSUB 3000: RETURN: REM NAS FOLMAB, 

CHAMAMOS 0 AVAL I ADOR ESTATICO. 

2050 BOSUB 4000: REM BERADOR DE MOV I MENTOS 
2060 IF NT-0 THEN BOSUB 3000: RETURN: REM SE ESTAMOS SEM 
MOVIMENTO, CHAMAMOS AVAL I ADOR ESTATICO 
2070 BETA-999 

2080 REM INICIO DA ANALISE DOS MOV I MENTOS. 

2090 FOR 1-1 TO NT 

2092 IF BETA< “ALFA THEN PRINT STRING* (2*NI I : 

PRINT "OCORREU UMA PODA BETA": I -NT: BOTO 2170 
2100 BOSUB 5000: REM ARMAZENA VARIAVEIS LOCAIS 

2110 NI>Nl*t:REM PROXIMO NIVEL 

2120 PRINT STRING*<2»NI,"«")|"NIVEL:"INI|"LANCE:“|I 

2130 BOSUB 900: REM CHAME MAXIMIZADOR PARA AVAL I AR LANCE. 

2140 BOSUB 6000: REM RESTAURA VARIAVEIS LOCAIS. 

2150 REM VA CONTEM VALOR DESTE LANCE. BETA CONTER VALOR 

DO MELHOR LANCE DO PONTO DE VISTA DO MINIMIZADOR. 
SE VA< BETA, DEVEMOS FAZER BETA-VA E ML- 1. 

2160 IF VA< BETA THEN BETA-VA: ML- 1 . 

2170 NEXT I 
2180 VA-BETA 
2190 RETURN 
2200 REM 

3000 REM—————— AVAL I ADOR ESTATICO ——————— 

3010 REM 0 AVAL 1 ADOR ESTATICO E" VOCE ME8M0. 

3020 PRINT STRING* <2*NI , ••"> I "QUAL 0 VALOR DO LANCE"! II 
3030 INPUT VA 
3040 RETURN 
3050 REM 

4000 REM”————— BERADOR DE MOV I MENTOS — — — — 
4010 REM 0 OERADOR DE MOV I MENTOS E" VOCE HESMO. 

4020 PRINT STRING* (2»N I , "-") | "QUANT OS SUBLANCES TEM 0 LANCE "I 

4030 PRINT II "DO NIVEL'INII 

4040 INPUT NT 

4050 RETURN 

4060 REM 

5000 REN— — SUBROT I NA PUSH — — — — — — — 

5010 REM ARMAZENA VARIAVEIS LOCAIS NA PILHA PARA EVITAR 
5020 REM QUE EL AS BEJAM ALTER ADAS POR CHAMA DAS RECURSIVAS. 

9030 PILHA (PP) -I: PP-PP* 1: PILHA (PP) -NT: PP-PPM 
5040 P ILHA < PP ) -N I :PP-PP*l: PILHA <PP> -ALFA: PP-PP-H 
5050 PILHA (PP) -beta: PP-PP* 1 : PILHA <PP> -ML: PP-PP* 1 
5060 RETURN 
9070 REM 

6010 REM RETAURA VARIAVEIS LOCAIS POSTAS NA PILHA 
PELA SUBROT I NA PUSH. 

6020 PP-PP-i:ML-PILHA(PP) :PP-PP-l: BETA-PI LHA(PP) 

6030 PP-PP-1 : ALFA-PILHA(PP) : PP-PP- 1 : NI -PILHA <PP ) 

6040 PP-PP-i : nT -pilha (PP> : pp-pp- i: i-pilha(PP) 

6090 RETURN 
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colhido seri cinco e, desse modo, o va- 
lor de E seri cinco. Em B escolhe o Mi- 
nimizador e a escolha recairi, evidente- 
mente, sobre E. 0 valor de B seri cinco. 
0 valor de D i urn (1), pois esta 6 a me- 
lhor escolha sob o ponto de vista do Mi- 
nimizador. O computador termina a 
anilise escolhendo, entre os n6s B (cin- 
co pontos), C (tres pontos) e D (urn 
ponto), aquele que tern maior valor. A 
escolha recairi sobre B. 

0 algoritmo que acabamos de descre- 
ver 6 chamado Mini max. Este nome foi 
escolhido para lembrar-nos de que o 
Minimizador se reveza com o Maximiza- 
dor na escolha dos lances. 

PROGRAM A DE DEMONSTRACAO 

Na listagem 1, oferecemos aos leito- 
res urn pequeno programa em BASIC 
para demonstrar o funcionamento do 
algoritmo Minimax. Um bom modo de 
estudar o referido programa 6 examinan- 
do como ele analisa a irvore de jogo da 
figura 7. 

Na lista 200 (listagem 1), chamamos 
uma rotina que fari o papel de Maximi- 
zador. Na linha 930, o Maxi mi za dor 
verifica se o no a ser analisado 6 uma 
folha. Caso seja uma folha, a rotina que 



faz a avalia^So estitica 6 invocada. Esta 
rotina apenas perguntari ao usuirio qual 
o valor da folha (num jogo ela deveria 
ser capaz de fazer a avaJia^ao estitica). 

Na linha 940, chamamos o gerador 
de movimentos e ele perguntari ao 
usuino em quantos lances se subdivide 
o n6 que esti sendo examinado. Num 
jogo, o gerador de movimentos fornece 



uma lista com todas as continuaijOes da 
posi^fo que lhe for apresentada. Entre 
as linhas 980 e 1070, os NT lances for- 
necidos pelo gerador de movimentos sfo 
avaliados. E quern os a valia? O Minimi- 
zador, £ claro. 

Se examinarmos o Minimizador (en- 
tre as linhas 2000 e 2190), veremos que 
ele usa o Maxi mi za dor na linha 2130. » 

m 
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Listagem 2 



— QUANTOS SUBLANCES TEM 0 LANCE 
...QUAL 0 VALOR DO LANCE 1 7 5 
-■—NIVEL: 2 LANCE: 2 
, ...QUANTOS SUBLANCES TEM O LANCE 
I...QUAL O VALOR DO LANCE 277 



— — » DEMONSTRACAO DE PODA BETA — — — — 

EM QUE NIVEL 0 AVALIADOR ESTATICO VAI ATUAR-? 
QUANTOS SUBLANCES TEM O LANCE l DO NIVEL 0 ? 

—nivel: i lance: i 

—QUANTOS SUBLANCES TEM 0 LANCE 1 DO NIVEL 1 

..—nivel: 2 lance: i 



—NIVEL: l LANCE: 2 

... —QUANTOS SUBLANCES TEM 0 LANCE 2 

b.b-nivel: 2 lance: i 

3 ——QUANTOS SUBLANCES TEM 0 LANCE 

2 — — QUAL 0 VALOR DO LANCE 1 ? 3 

— OCORREU UMA PODA BETA 
?2 0 MELHOR LANCE E’ 1 

O VALOR OBTIDO COM ESTE LANCE E' 



1 DO NIVEL 270 

2 DO NIVEL 270 

DO NIVEL 1 7 2 
1 DO NIVEL 270 

3 



Em re sumo: o Mini mi za dor usa o Maxi- 
mize dor e vice-versa. Isto se chama re- 
cursividade cruzada. Na recursividade 
cruzada, o Minimize dor poderd alterar os 
valores das varidveis do Maximizador. 
Para evitar isto, antes de chamar o Mini- 
mizador na linha 1020, guardamos na 
matriz pflha os valores de todas as va- 
ridveis que nSo podem ser alteradas. Pro- 
gramadores de LISP ou de Pascal cha- 
mam estas varidveis de varidveis locais. 
Uma vez que o controle voltou do Mini- 
mizador para o Maximizador, a rotina 
6000 6 invocada na linha 1030, restau- 
rando as varidveis locais. 

Em VA (ver listagem) estd o valor do 
tabuleiro avaliado pelo Minimizador. 
Este valor 6 comparado com ALFA e, se 
for maior, ALFA 6 feito igual a VA e o 
lance correspondente i armazenado em 
ML. Esta opera^o, repetida ap6s a ava- 
lia^o de cada lance, terminard por co- 
locar em ALFA o valor do melhor 
lance. Na linha 1080, VA 6 feito igual a 
ALFA, isto d, igual ao valor do melhor 



lance. Quando o controle retorna do 
Maximizador na linha 210, ML contdm 
o melhor lance e VA contdm o valor do 
melhor lance. 

A PODA ALFA-BETA 
Examinando a linha 1060, observa- 
mos que o Maximizador s6 aceitard o 
valor fornecido pelo Minimizador se ele 
for maior que ALFA. Isto significa que, 
se dentro do Minimizador BETA 
tomar-se menor do que ALFA, ndo 6 
necessdrio examinar o resto dos lances. 
Isto porque a continua^o da andlise dos 
lances ou levaria a valores maiores que 
BETA ou a valores menores ou iguais a 
BETA. E dentro da hipdtese de que 
BETA jd se tornou menor que ALFA, 
valores menores do que BETA seriam 
recusados pelo Maximizador. E valores 
maiores que BETA seriam recusados 
pelo Minimizador na linha 2160. Pode- 
mos, entdo, interromper a andlise na 
linha 2092 sempre que BETA se tornar 
menor do que ALFA. Esta interrupt 
se denomina poda BETA. 



Por razOes andlogas as expostas no 
pardgrafo anterior, sempre que ALFA se 
toma maior ou igual a BETA dentro do 
Maximizador, podemos interromper a 
andlise. Esta interrupt 6 chamada 
poda ALFA. 

Na listagem 2, fornecemos um exem- 
plo de execu^o do programa de de- 
monstrate da listagem 1 usando a drvo- 
re da figura 7. Como o leitor pode veri- 
ficar, uma poda BETA ocorre neste 
caso. 

MINIMAX EM LISP 

A primeira coisa que uma pessoa m- 
teressada em Inteligencia Artificial deve 
fazer i aprender LISP e PROLOG. Estas 
linguagens sao as ferramentas poderosas 
e flexfveis que estdo tornando a Inteli- 
gencia Artificial possfvel. 

Para dar ao leitor uma iddia de 
como 6 LISP, fornecemos na listagem 3 
o algoritmo Mini max no t LlSP padrdo do 
TRS-80. Na listagem 4, a drvore da figu- 
ra 7 6 analisada usando o programa da 
listagem 3, isto 6, o Mini max em LISP. 



Listagem 3 



EXPR PROCEDURE TESTE NILI 
BEGIN SCALAR NMAXIMOl 

PRIN2 "QUANTOS NIVEIS TEN A ARVORE'’ "I 

NMAXIMO: -READ NILI 

PRINT MINMAX ( ' RAI 2,0, —99,99) I 

END I 



EXPR PROCEDURE GERADOR TABULE IROI 
BEGIN PRIN2 "COMO BE CONTINUA A PARTIR DE “I 
PRIN1 TABULEIROI PR1N2 m 7 - | 

RETURN READ NILI 

END I 



EXPR PROCEDURE AVALIADOR TABULEIRO I 
BEGIN PRIN2 -QUAL 0 VALOR DE "I 

PRIN1 TABULEIROI PRIN2 *? * I 
RETURN READ NIL I 

END I 



EXPR PROCEDURE MINMAX (TA8ULE IRO, NIVEL. ALFA. BETA) I 
BEGIN SCALAR M, N, TABULEIROS. MLANCEl 

IF NIVEL - NHAXIMO THEN RETURN AVALIADOR TABULEIROI 
TABULEIROS GERADOR TABULEIROI 

IF NULL TABULEIROS THEN RETURN AVALIADOR TABULEIROI 

M I- ALFAl 

REPEAT 

BEGIN TABULEIRO: -CAR TABULE IROSl 

NI -MINUS MINMAX (TABULEIRO, NIVEL ♦ 1, MINUS BETA, MINUS M) 
IF M > M THEN BEGIN M: -Ml MLANCE: -TABULEIRO END I 
TABULE I ROSt-CDR TABULE IROSl 
IF M > BETA THEN T ABULE I ROS 5 - O I 

END 

UNTIL NULL TABULE IROSl 

IF NIVEL -O THEN RETURN LIST (M. MLANCE) 

ELSE RETURN Ml 



END I 



Listagem 4 

♦TESTE < ) 1 



QUANTOS 


NIVEIS TEM 


A ARVORE? 


♦3 






COMO 


SE 


CONTINUA A 


PARTIR 


DE 


RAIZ? 


♦ (A B) 


COMO 


SE 


CONTINUA A 


PARTIR 


DE 


A? 


♦ <C 


D) 


COMO 


SE 


CONTINUA A 


PARTIR 


DE 


C? 


♦ <) 




QUAL 


O VALOR DE C? 


♦5 










COMO 


SE 


CONTINUA A 


PARTIR 


DE 


D? 


♦ (> 




QUAL 


0 « 


^ALOR DE D? 


♦7 










COMO 


SE 


CONTINUA A 


PARTIR 


DE 


B? 


* <E 


F) 


COMO 


SE 


CONTINUA A 


PARTIR 


DE 


E? 


♦ <) 




QUAL 


O 


VALOR DE E? 


♦3 











(5 A) 
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SINTA NOS DEDOS ESTA NOVA 

CONQUISTA 

J4 nao 6 preciso escolher. Agora voce tem o microcomputador DGT-1000, com design moderno 
e novas incorporates que Ihe conduzirao a decisao certa. 

0 DGT— 1000 6 modular e dependendo da sua necessidade ele se expande at6 um grande sistema. 

A DIGITUS Ihe assegura a possibilidade de expansao do DGT— 1000 
atrav6s das interfaces que comercializa: 



B 3IGITU5 

Rua GAvea, 150 Beto Horizonte 
Tel.: (031) 332-8300 Telex: 3352 



• Intense* printer, parslels para irtipresaora tipo centronis. 

• Interface para unidade de diaco flexvel 5 1/4 fart 4 
unidades de 184 KB ode). 

• Expansao de m*m6ria art 64 KB. 

• I nt erf see colorida com alts resolupao gr4f ica. 

• Interface RS 232. 

• Sintet izador de voz. 

• Sistema operacional DGP/M totalmente compatfvel com 
CP/M (com o DGP/M vooi podert user os famosos programas 
WORDSTAR a dBASE III. 



Aracaju Barueri Brasilia • ’28(22S-«534i226-920'.?26e70r?42€3.: Bate HorUonte (031) 223€8i7/223M45/?2? 7800225 3305(225 €239(226«SV 

Betem Campinas . Curitiba Divinopolis 37) 2212004/22' 9*94 (085) 224 3923/23’ 4822/2244»«4/244 469ic. 

Fkxianbpolis. . . 59 Oottnla (082) Joio Ressoa (083) 221-6743 liNIdrtM (0*32) 23-'”C Maceio < Montes Claroe (03B) 221259- Nitero. Ncno Hamburgo 

OuroPreto Po?os de CakJas Porto Alegre Recile Ribeirio Preto Rio de Janeiro 

icri) 2B82eS0n6v«M2Q5'-i3Se'2Se0734^640t43(24e«i5ai3B4 wmu •‘ A-.--.- ■ . :tB0£2?45<5f25? 2752053 J38&267 <831267 6291347 t33aaa64e*r«?6e>9AY*»'5't- 

Salvador Santa Maria Sio Paolo 

4(»!"I !CB.« taubate .002) '-2980 Vitoria (C$7) 223 “4' 



Um programs de Engenharia para o TRS-80 Color, 
mas que roda am outros BASICs, com poucas mod if i canoes 



Resolucao de Treligas 
Hiper estatic as 

Perm in Jimenez Murillo 



ste programs resolve Trelifas Hiperestaricas (Andlise 
Matricial de Estruturas) utiizando um micro TRS-80 
Color Computer com 32 Kb e uma impressora LINE 
PRINTER VO. 

0 numero mdximo de barras que o programs permite d de 
62, o numero mdximo de n6s £ de 62 e o numero maximo de 
carregamento £ de 4, com 32 Kb de RAM. Para equipamentos 
com mais ou menos memdria veja as observances ao final do 
artigo. 

OPERATES iniciais 

Primeiro deve-se fazer um esquema da trelina, como mos- 
trado na figura 1 .b, em que se colocard uma seta para cada des- 
locamento em cada n6 (horizontal e vertical no sentido positi- 
ve), que serffo numeradas sequencialmente. 

Cada barra deverd ser enriTo numerada e orientada. 0 grau 
de liberdade de estfutura (NP) serf igual ao numero de setas e 
cada barra orientada terd duas setas iniciais (N1 e N2) e duas 
setas finais (N3 e N4). (Em qualquer restnndo, deve-se assumir 
que a seta tern numero NP+1). 

A tabela de dados deve ser construida colocando-se para 
cada barra os respectivos valores de numero da barra, N1,N2, 
N3, N4, H, V e Area (veja figure 2 e listagem). H e V s3o as co- 
ordenadas do fim da barra, considerando-se o undo como ori- 
gem. 

Por ultimo, deve-se construir a matriz de carre gamento 
colocando-se uma for^a (se river) correspondente a cada des- 
locamento. Esta matriz terd trds colunas: numero do desloca- 
mento, numero da condinSo de carregamento e forna na dire- 
fffo do deslocamento (d preaso colocar o sinal de menos (-) 
se a forna estiver agindo no sentido contrdrio d sua respectiva 
seta.) 

A tabela de dados e a matriz de carregamentos sdo feitas 
atravds de linhas de programas com o comando DATA. Assim, 
d preaso que se apaguem as linhas 200 em diante e que se en- 
trem novas linhas com os dados na forma do comando DATA, 




colocando-se trds virgulas ap6s o ultimo dado para indicar fim 
de dados. 

Para visualizar isso, podemos ver o exemplo da figure 1, 
cujos dados estSo nas hnhas 200 em diante do programa apre- 
9entado ao final. 
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PROJETO — EXEMPLO 1 






CALCUL0 DE TRELICAS - PNRLISE 


MATRICIAL DE ESTRUTURAS 




GRAU DE UBEROAOE 


a 






23 






NUM. DE BPRR8? • 








23 






C0N0. 


DE CARREG. 








1 






MOO. DE ELBST. . 








2100000 KF/-CM22 




TABELA DE DA00S 


















N1 


NZ 


N3 


N4 H 


V 


AAEA 




1 


26 


26 


1 


2 175.0800 


43.0000 


30.0000 


BARRA 


2 


1 


2 


3 


4 175.0000 


45.0000 


30.0000 




3 


3 


4 


3 


6 175.0000 


43.0000 


30.0000 


0ARRA 


4 


3 


6 


7 


0 175.0000 


43.0000 


30.0000 


BOPPP 


3 


7 


0 


9 


10 175.0000 


-43.0000 


30.0000 


0APRA 


6 


9 


10 


11 


12 175.0000 


-43.0000 


30.0000 


8ARRA 


7 


11 


12 


13 


14 175.0000 


-43.0000 


50.0000 


BARRA 


0 


13 


14 


13 


26 175.0000 


-45.0000 


30.0000 


pRpRR 


9 


26 


26 


16 


17 330.0000 


0.0000 


30.0000 


BRPRP 


10 


16 


17 


10 


19 175.0000 


0.0000 


30.0000 


BARRA 


11 


18 


19 


20 


21 173.0080 


0.0000 


30.0e00 


BARRA 


12 


20 


21 


22 


23 175.0000 


0.0000 


30.0000 


BARRA 


13 


22 


23 


24 


23 173.0000 


8.0000 


30.0000 


8ARRA 


14 


24 


23 


13 


26 330.0000 


8.0000 


30.0000 


BARRA 


13 


1 


2 


16 


17 175.0000 


-43.0000 


so.eeee 




16 


16 


17 


3 


4 0.0000 


90.0000 


30.0000 




17 


3 


4 


10 


19 173.0000 


-90.8000 


30 . 0000 


BARRA 


10 


10 


19 


3 


6 0.0000 


133.0000 


30.0000 


Barra 


19 


3 


6 


20 


21 173.0000 


-133.0000 


30.0000 


BARRA 


29 


20 


21 


7 


0 0.0000 


180.0000 


50.0000 


PARRA 


21 


20 


21 


9 


10 173.0000 


133.0000 


30.0000 




22 


22 


23 


9 


10 0.A000 


133.0000 


30.0000 




23 


22 


23 


11 


12 173.0000 


90.0000 


se.oeeo 


BPRRP 


24 


24 


23 


11 


12 0.0000 


90.0000 


30.0000 


BARRA 


23 


24 


23 


13 


14 173.0000 


43.0000 


30.0000 


1 AS 3EGUINTES COL UNAS 


ESTAO NA 


0RDEM DAS C0NDIC0ES DE CARREGAMENTO 1 


MATRIZ DE 






MATRIZ DE 


E8FORCOS NAS 


| CARREGAMENTOS <KF> 


desloEamento? <cm> 


BARRAS <KR> 


1 


0.0098 






1 


0.032034 


1 


-3340.4832 


2 


-380.0000 






2 


-0.161481 


2 


-4377.3388 


3 


0.0000 






3 


0.037297 


3 


-3814.6323 


« 


-300.0000 






4 


-0.213577 


4 


-3031.7038 


5 


0.0000 






3 


0.033031 


3 


-3831.7038 


6 


-300.0000 






6 


-0.234314 


6 


-3814.6322 


7 


0.0000 






7 


0.030707 


7 


-4377.3386 


e 


-3B0.0000 






0 


-0. 233708 


e 


-3340.4831 


9 


0.0000 






9 


B.823’23 


9 


3172.2222 


10 


-300.0000 




10 


-0.234314 


10 


4433.3333 


11 


0.0000 




11 


0.024277 


11 


3694.4444 


12 


-308.0000 




12 


-0.213577 


12 


3694.4443 


13 


0.0000 




13 


0.029340 


13 


4433.3331 


14 


-360.0080 




1* 


-0.161481 


14 


3172.2228 


13 


0.0000 




13 


0.061374 


15 


-762.9263 


16 


0.0000 




16 


0.017241 


16 


190.0000 


17 


0.0000 




17 


-0.213740 


17 


-830.8772 


ie 


0.0000 




10 


0.024630 


10 


380.0001 


19 


0.0000 




19 


-0.234003 


19 


-933. 1972 


20 


0.0000 




20 


0.030707 


20 


1140.0000 


21 


0.0000 




21 


-0.237663 


21 


-933.1971 


22 


0.0000 




22 


0.036944 


22 


380.0001 


23 


0.0000 




23 


-0.234903 


23 


-038.0771 


24 


0.0000 




24 


0.044333 


24 


190.0000 


23 


0.0000 




23 


-0.213740 


23 


-762.9264 














FIN 





















Figura 2 - Exemplo de saida do pro grama 



OPERA^AO DO PROG RAMA 

Se o equipamcnto for um TRS-80 Color Computer com 32 
Kb, primeiro deve-se adonar PCLEAR 1 , que reserva aproxi- 
madamente 30 Kb para operar o programa. Ao executar o pro- 
grama com RUN aparecerffo no video as indicafOes necessinas 
para: 

— entrar com o nome do projeto; 

- entrar com NP (grau de hberdade), NM (niimero de barras) 
e NC (niimero de condi^es de carregamento); 

— entrar com as unidades de forfa e longitude ; 

- entrar com o M6dulo de Elastiddade. 

Todos estes dados serffo pedidos pelo programa em forma 
de INPUT. Posteriormente , o programa fomece a tabela de 
dados, as conduces de carregamentos, a matriz de deslocamen- 
to e os esfor$os nas barras, lembrando que a Compresslo 6 
considerada — e Traq&o +. 

OBSERVANCES 

Algumas observa^es devem ser feitas a respeito do progra- 
ma: 



- As unidades devem ser coerentes com o M6dulo de Elasti- 
cidade. Se assim n5o o forem, ou caso se coloque um M6dulo 
de Elasticidade errado, os deslocamentos sofrerSo vanaffies, 
mas os esfor^s nas barras serffo quase que os mesmos. 

- Para efeito de preenchimento da tabela de dados pode-se as- 
sunur a rfrea das barras aproximada e os esfor90s nas barras 
quase que nSo mudarffo. 

- Caso exista uma for^a inclinada agmdo em um n6 (uma for- 
9a de vento, por exemplo), esta devera decompor-se em duas, 
uma horizontal e outra vertical. 

- Lembramos que um apoio fixo restnnge dois deslocamen- 
tos, enquanto um apoio mdvel restnnge apenas um. Para cada 
restn^o deve-se assumir uma seta de niimero (NP+1). 

- Para uma treh9a razoavelmente grande, o computador de- 
mora um pouco no processo matricial. Num TRS-80 Color, o 
exemplo da figure 1 demora aproximadamente sete minutos e 
meio. 

- Para os que nSo possuem impressora, basta mudar as ins- 
tructs PRINT # —2 (que comanda a impressora no TRS-80 
Color) para PRINT. 

- O mtftodo usado i o dot Deslocamentos. Para invers2o da 
matriz utilizou-se o mdtodo GAUSS-JORDAN, com as simpli- 
fica96es para matnz sim^trica. 

- 0 programa aceita qualquer sistema de unidades, desde que 
estes sejam coerentes. 

- Para um equipamento com 16 Kb, ou entSo com 48 ou 64 
Kb, basta alterar a linha 16 do programa, dimensionando para 
mais ou para menos a amplitude das vandveis matrizes e veto- 

rpc * 



Farm in Jimenez Murillo 4 Diretor de Projetos de Universidede Estaduei 
de Londrine, Parand. 



ScftKnisfian 

Revendedores Autorizados 



Rio de Janeiro 



•*#P<Jt*co do Ubana 2SA 
Bto Oe Janeiro - RJ 
CER 20061 



R Dr El Jack. 25 S/S 
NoraFrlbixoo-ftJ 
tel 22 4206 
VOC 

A Brasil. 10 S/07 
Araruoma HJ 
CtP 28970 



A Bo Branca 156 ttrteo 
Bo de janaro Rl 

HU 

Vhc d* Braid. 301217 
Bo O# Janeiro ftj 
*» 267 8597 

Pernambuco 



R Itorto Alegre 112 
Canxiru PE 
CEP 55100 

Alogoas 



A- StQuewa Campos 838 
Moceift- AL 
W (082)223 3979 

SOo Paulo 



A OOS ImarRs 457 
SOo ftxno SP 
W 61 4049 61 0946 



R Boa Vara 314 3* anOar 
SOoftjulo SP 
•el 35 7131 R/32 



R Amador Bueno 855 
Rtbewdo Prato - SP 
tel (016)636 0586 



CfilAaUUa 

•viopnca 

Alamedo Junta. 434 
Sdotouto SP 
W 421 5211 

Mz 

R Frai Caneoa. 7 
Samos SP 
tel 35 1792 



A Aogttca 1996 
SdoRxio SP 
C8> 01228 
IMorto P oledr o 
R Aurora. 704 
Sdoffaulo SP 
tel 221 6764 
RC Mlcrocomouloaoret 
A Estooos UnidOS 983 
Piroocabo SP 
tel 33 7018 

Rto Grande do Sul 



R Anarados 1560 galena 
Malcon 518 Axlo Alegre RS 
•el 26 8246 



1H.I ... 

^o Olavio Rocha 41 
tonoAJeare RS 
CEP 90000 

India Center 

R Ftonano Ataota iii2con| 
33/43 Santa Mono - RS 
tel (055)2217120 

Qeremlo Lido. 

A JufcoaeCainrov 1872 
Camas ao Sul RS 
tel 221 1299 

Nordemoq 

A Juno de Castilhos 3240 
Camas ao Sul -RS 
tel 221 3516 



R Juno de Castilhos 441 - 
1'andar Nora Hamourgo RS 
tel (0512)934721 



Bahia 

Oflcclnfl 

Shopping Center Itoigoia 
WO foHo 
saivaaor BA 
tel (071)248 6666 

Santa Catarina 

Supermicro Show 

R aosllheus 10l| 6 
FtortgOgojis - 9C 

Parana 

Compultque 

A BateMTfiO 
Curitiba PO 
tel 2431731 



Av Mol Deodoro. 311 
Cunttbo - PR 
tel 224 3422 

Minos Gerats 
Computronli 

2eS«S*^ MG 
tel (031)225 3305 



R Aquiles loca 441 A 
Belo Horuonle MG 
tel (031)222 6903 
Micro Pocos 
R Assn Figueireaa H)72 
fbcos de Caidos MG 
tel (035) 721 1883 

BtoimOp 

A Flonano ftelucAa 396 

Ubertandia MG 

tel 235 1413 235 7359 



9&JN302 bl A l| 63 

Brasilia DF 

tel (061)225 4534 



r CRED0OAMC6 NCMDS REVB'CEDOfiES BARA 1COO O BRASU 
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RESOLUgAO DE TRELigAS HIPERESTATICAS 



Resolucao de Treli^as Hiperestaticas 



i ' 

2 ' * PROGRAMA "TRELICA" • 

3 * • FERMIN JIMENEZ MURILLO • 

4 * 

5 ‘CALCULO DE T RE LI CAS HIPERESTATICAS 

6 ' LIMITES : GRAUS DE LIB. -62 . BARRAS-62 . COND. DE CARREG. 

*4 

7 ' INICIALMENTE PCLEAR1 E ANTES DE RODAR O PROGRAMA: < DELETE 
200-» 

8 'PREEN CHA OS DADOS A PARTIR DA LINHA 201 (EM FORMA DE DAT 
A) 

9 'NAO ESQUECA DE COLOCAR TRES VIRGULAS (,,,) APOS 0 ULTIMO 
DADO 

10 'AS UNIDADES DEVEM SER COERENTES 

11 CLS:PRINT#-2,**:PRINT-CALCULO DE TRELICAS" 

12 PRINT’ANALISE MATRICI AL DE ESTRUTURAS* 

13 PRINT’ENTRE COM O NOME DO PROJETO" : INPUTX* 

14 PRINT#-2,CHR!<31) ;*PROJETO - "XI 

15 PRINT#-2,CHR! ( 30) ; "CALCULO DE TRELICAS - ANALISE MATRICI 
AL DE ESTRUTURAS" 

16 DIMAT (63, 6 3) ,P<62,4) , X(63, 4) , IXI62) ,F(4) 

17 PRINT-ENTRE COM : NP.NM.NC* 

18 INPUTNP ,NF ,NC 

19 PRINT#-2 f --:PRINT*-2,*GRAU DE LIBERDADE t *,NP 

20 PRINT#-2, “NUM. DE BARRAS : ",NF 

21 PRINT#- 2, -COND. DE CARREG. : *,NC 

22 PRINT-ENTRE COM AS UNIDADES (F,L) * 

23 INPUTA!,B! 

24 PRINT-ENTRE COM E'jINPUTE 

25 PRINT#— 2 , “MOD . DE BLAST, i * ,E ; A! ; */* : B! ; *2* 

26 PRINT#— 2 , " ” :PRINT#-2 , *TABELA DE DADOS' :PRINT#-2 ,- * 

27 CLS :PRINT“TABELA DE DADOS" 

28 PRINT#-2 , " N1 N2 N3 N4 H 

V AREA- 

29 PRINT#-2 .STRING! ( 65 , "— ") 

30 Wl-NP+1 

31 FORI -1TCW1 iFORJ-lTONl : AT (I , J) — 0 :NEXTJ , I 

32 FORI - 1TONF 

33 READMO.Nl ,N2 ,N3,N4,H.V,A 

34 XL— SQR(H*H*V-V) :CS-H/XL:SN-V/XL 

35 PRINTMO; *:*;N1;N2;N3;N4;H;V;A 

36 PRINT#-2, ’BARRA*; MO, 

37 PRINT#— 2 .USING"####" ;N1 ,N2 ,N3 ,N4 , 

38 PRINT#— 2 .USING"*#*### . ####*;H ,V , A 

39 Tl-E-A-CS-CS/XL 

40 T2-E*A*CS-SN/XL 

41 T3-E -A-SN -SN/XL 

42 AT(N1 ,N1) -AT (N1 ,N1) *T1 

43 AT (N1 ,N2 ) -AT (N1 ,N2) *T2 

44 AT (Nl ,N3) -AT (Nl ,N3) -T1 

45 AT(N1 ,N4) -AT (Nl ,N4) -T2 

46 AT (N2 ,N1) -AT (N2 ,N1) *T2 

47 AT (N2 ,N2) -AT (N2 ,N2) +T3 

48 AT (N2 ,N3) —AT (N2 ,N3) — T2 

49 AT (N2 ,N4) -AT (N2 ,N4) -T3 

50 AT (N3.N1) — AT (N3 ,Nl) -T1 

51 AT (N3.N2) -AT (N3 ,N2) -T2 

52 AT (N3.N3) -AT (N3.N3) *T1 

53 AT(N3,N4)-AT(N3,N4)«-T2 

54 AT (N4 ,Nl) -AT (N4 ,N1) -T2 

55 AT (N4 ,N2) -AT (N4 ,N2) -T3 

56 AT (N4 ,N3) -AT (N4 ,N3) +T2 

57 AT ( N 4 , N 4 ) -AT ( N 4 , N 4 ) +T 3 

58 NEXTI 

59 PRINT#-2, STRING! (65,*-*) 

60 PRINT-<AGUARDE»- 

61 PRINT#-2 , "AS SEGUINTES CO LUNAS ESTAO NA ORDEM DAS CONDIC 
OES DE CARRE GAMENTO " 

62 FORI-1TONP : IX ( X) — 0 :NEXTI 

63 AX— 1 

64 FORI-1TONP 

65 IFIIX(I) ) «»0THEN69 

66 T-ABS (AT ( I , I) ) 

67 IF(T-AX) <-0THEN69 

68 IC-I : AX-T 

69 NEXTI 

70 IF(AX) «-0THEN79 

71 IX(IC) -I :PV-AT(IC,IC) :AT(IC,IC) -1 iPV-l/PV 

72 FORJ-1TONP :AT(IC, J) -AT (XC, J) »PV:NEXTJ 

73 FORI - 1TONP 

74 IF ( I-IC) -0THEN77 

75 T-AT(I.IC) :AT(1 • 1C) -0 



76 FORJ— 1TONP :AT ( I , J) -AT ( I , J) -AT ( IC , J) -TtNEXTJ 

77 NEXTI 

78 G0T063 

79 IF (AX) — 0THEN 122 

80 FORI — 1TONP iFORJ-ITONC : P ( I , J ) -0 : NEXTJ , I 

81 PRINT#-2, ** lPRINT#-2 , "MATRIZ DE CARRE GAMENTOS ("A!")" 

82 PRINT#-2, STRING! (28,*-*) 

83 READI.J.P 

84 IF ( 1 ) <-0THEN86 

85 P ( I , J) -P :00TO83 

86 PRINT’MATRIZ P* 

87 FORI-1TONP 

86 PRINT#-2,CHR! (26) :PRINT#-2 , USING"*#" ; I ; 

89 FORJ-lTONC 

90 PRINT#— 2 , USING"#########. ####" ; P (I , J) , 

91 PRINTI ; J ; P ( I , J) 

92 NEXTJ, I 

93 PRINT#-2,--:PRINT#-2,**:PRINT#-2, ’MATRIZ DE DESLOCAMENTO 
S ( *B!*1 • 

94 PRINT#-2, STRING! (27,*-*) 

95 FORI-1TONP : FORJ-lTONC: X ( I , J) — 0 

96 FORX-1TONP : X ( I , J) —X ( I , J) +AT (I ,K) -P(K,J) 

97 NEXTK.J.I 

98 PRINT "MATRIZ X* 

99 FORI -1TONP: FORJ-lTONC 

100 PRINTI jJ,X(I,J) , :NEXTJ. I 

101 FORI-1TONP 

102 PRINT#-2 ,CHR! (26) :PRINT#-2, USING*##"; I; 

103 FORJ-lTONC 

104 PRINT*-2, USING”#######. ######"; X ( I ,J) , 

105 NEXTJ, I 

106 PRINT "MATRIZ DE ESFORCOS* 

107 PRINT#- 2 , ** :PRINT#*-2 , ** : PRINT#- 2, “ESFORCOS NAS BARRAS ( 
-A!*)* 

108 PRINT#-2, STRING! (24,*-*) 

109 FORJ«lTONC:X (Nl , J) -0 : NEXTJ 

110 RESTORE 

111 FORI-1TONF 

112 READM0,N1,N2,N3,N4,H,V,A 

113 PRINT#r-2,CHR!(26) :PRINT#-2,USING*#*";MO? 

114 XL— SQR(H*H+V*V) :CS— H/XL:SN— V/XL 

115 FORJ-lTONC 

116 F(J)«E*A/XL»(CS*(X(N3,J:-X(N1,J))+SN*(X(N4,J)-X(N2,J))) 

117 PRINTMO ; J, F ( J) , 

118 PRINT#— 2 ,USING* #*######*.•###" ; F ( J) , 

119 NEXTJ :NEXTI 

120 PRINT#-2 , *" :PRINT#-2 , ** :PRINT#-2, "FIM" 

121 PRINT#-2,-— * 

122 STOP 

201 DATA1 ,26, 26,1,2,175,45,50 
20? DATA2 ,1,2,3,4,175,45,50 

203 DATA3, 3,4,5,6,175,45,50 

204 DATA4 ,5,6,7,8,175,45,50 

205 DATA5, 7,8,9,10,175,-45,50 

206 DATA6,9,10,ll,12,175,-45, 50 

207 DATA7.il, 12, 13, 14, 175, -45, 50 

208 DATA8, 13, 14, 15, 26, 175, -45, 50 

209 DATA9 ,26,26,16,17,350, ,50 

210 DATA10, 16, 17, 18, 19, 175, ,50 

211 DATA11, 18,19,20,21,175, ,50 

212 DATA12, 20,21,22,23,175, ,50 

213 DATA13, 22, 23, 24, 25, 175, ,50 

214 DATA14, 24,25,15,26,350, ,50 

215 DATA15, 1,2,16,17,175,-45,50 

216 DATA16 , 16 , 17, 3, 4 , , 90, 50 

217 DATA17, 3, 4, 18, 19, 175,-90 , 50 

218 DATA18 ,18, 19, 5, 6, ,135, SO 

219 DATA19,5,6, 20, 21, 17S, -135, 50 

220 DATA20, 20, 21 ,7 ,8 , ,180,50 

221 DATA21 ,20,21,9,10,175,135,50 

222 DATA22,22,23,9,10, ,135,50 

223 DATA23, 22,23, 11,12,175,90,50 

224 DATA24 ,24,25,11,12, ,90,50 

225 DATA25, 24, 25, 13, 14, 175, 4S, SO 

226 DATA2, 1,-380 

227 DATA4, 1,-380 

228 DATA6, 1,-380 

229 DATA8, 1,-380 

230 DATA10, 1,-380 

231 DATA12, 1,-380 

232 DAT Al 4,1,-380, ,, 






M 



PROCURE QUEM 
REALMENTE ENTENDE. 






^MICROMAQ 



R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janero 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Puhlicagoes 
Rspeciali/adas, Cursos e Manutengao de Equipamentos. 



MICRO SISTEMAS, outubro/83 





.5. Seruif os 



PRH 

CONSULTORES 



Assessoria em Processamento dt 
Dados 

Desenvolvimento de Programas 



PROGRAM AS PRONTOS 

(TRS-80-III — diskette) 

• Emissao de Carnes 

• Controle de Convenios 

• Processamento de Cadastros 

• Historico Medico 

• Mala Direta 

• Lista de Pregos com Reajuste 
Automatic# 

• Cadastro de Artigos de Re- 
vistas el ou Livros 

• Cadastro de Clientes 



PRH Consultores 
Rua Mexico, 70— Grupo 810 811 
Centro-RJ Tel.: (021)220-3038 




COMPUTACAO 






Kua Miguel l.etnos nV 41 
sala 606 - C'opaeahana 
Tel.: 2274W0J 
Rio de Janeiro - RJ. 






English Ltda 

pm P'omiaMMo o. DUbi 



CURSO 



06JETTV0S: Former o aluno com conha- 
cimento soltdo na area de Ingles Tecmco 



HORARIOS: Manha Tarde e No'le 
Saoados peia Manha 
2 aulas semanais 



OBS.: Turmas lechadas para Empresas 

DURAQAO 6 (seis) mesas — 2 (dois) 
trimeslres 

TURMAS: Com 2S atunos 

A QUEM SE DESTINA 

Oigitadores Operadores. Programadores. 
Anaistas. Aud'tores. Engenheiroa. Medi- 
cos. Advogados. ArXmmsiradores. Econo- 
mistas. Usuanos de Micro Com putadores e 
dema* mleressados em aplicacio da lin- 
gua ingiesa Tecnica para Processamento 
de Dados 



Praia de Botaio go, 210 Gr. 1.10S 
Tel.: 55 1-4448 — Botalogo RJ 



^iMcPaift^jPoce 



O lugar compativel 
com voce e seu 
micro. 



Rua Dias da Cruz, 215 
s/804 — Rio de Janeiro — RJ 
Tel.: 594-2699 



EE BITS E BITES 

COMPUTADORES 



• VEND AS 

• ASS. TECNICA 
ESPECIAL IZADA 

• PROGRAMAS 

• DISKETTES 

• FIT AS 

• SERVigOS 

• CURSOS DE BASIC 

• FORMULARIOS 



ICONSERTOS EM 24 HORASl 
(COM GARANTIA) PARA 
O CP-500 e dgt-ioo 



EM SAO CONRADO 
Estrada da GOvea, 642 

LJ. B Tel.: 322-1960 



No Recife, visite 

TELEVIDEO (’) 

O Lojao de Informatics mais 
descomplicado do pais! 

Micros, perifencos. supnmen- 
tos, Software. Cursos. Livros e 
Revistas. Componentes Eietro- 
nicos. Pegas e Som. 



PREQOS ESPECIAIS. 
FINANCIAMENTO PRtiPRIO. 



Compre pessoaimente ou peio 
Reemboiso Postal. 

TELEVIDEO LTDA. 

R. Marqu6s do Herval, 157 
Tel.: (081)224-8932, 
(50000) Recife, PE 



() Sr. Induatrial: distribuimos seu 
produto na s melhores condiqoes. 
Contalo em Seo Peulo: Tel.: (Oil) 
220-7377 (Sr. ANDERSON - Nun 
disom) 



SFEETimS 

CENTRO DE PESQUISAS, 
ESTUDOS E ENSINO 
TECNOLOGICO E DE 
INFORMATICA DE MINAS 
GERAIS LTDA. 



Ja estao abertas as 
inscrigoes para 
o curso de Analises 
de Sistema, com 
estagio garantido 
para todos os alunos 
em nosso CPD 



Rua Tamoios n°. 462/911 
Rua da Bahia n° 504 4° andar 
B Horizonte - M Gerais 



Alfa Bit 
CLUBE DE COMPUTAQAO 



Associe-se ao ABCc e ganhe Anuncio GRA- 
TIS, um exemplar de ALFABIT e DESC0N- 
T0S de 10% na compra de LIVROS. REVIS- 
TAS. CURSOS e PROGRAMAS. a*m de: 

— Serves de "Reprinters"' e Consultas 

— Associa^o a Clubes Europeus 

— Paiticipagao em Cursos. Congressos e 
Concursos 

— Novos langamentos a PREC0S REDUZI- 
D0S (Breve: IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS 0E LOGICA SIN- 
CLAIR - Langamento "Digital Eletrd- 
nfca") 

ANUIDADE CrS 1 .000 (hum mil cr weir os) 
somente ao receOer seu Cartto-Descontos e 
um exemplar de "Alfabit" 

Envie nome, enderego, profissJo etextodo 
seu anuncio (caso queira pubdcagio ime- 
dtata). 



NO VI DEI A(*) 

Comunicagao e Informatica Ltda 
CAIXA POSTAL 9978 
CEP 01051 • Sao Paulo. SP 



OComercializamos seu proje- 
to-Soft ou Hard. Escreva-nos 



ANUNCIO 



PEQUENO 



GRANDE 



RETORNO 



ESTE ESPACO ESTA 
RESERVADO PARA SEU 
ANUNCIO ECON6MICO. 
GARANTA JA UM 
SUPER RETORNO. BASTA 
LIGAR PARA: 

RIO DE JANEIRO: 

(021) 286-1797, 246-3839 

e 266-0339 

SAO PAULO: (011) 

280-41 44 e 853-3800 



Atengao 

leitores 

de todo 
Brasil! 



MICRO SISTEAAAS informa que a 
firma Spartime e o sr. Eloi Jora 
Soares nao mais representam a 
revista para fins de 
venda de assinaturas. 

Para assinar MICRO SISTEMAS, 
dirija-se pessoaimente ou 
por carta aos nossos endere^os: 



Rio de Janeiro — R. Visconde Silva, 25, Botafogo, CEP 

22281, tels: (021) 286-1797, 246-3938 e 266-0339 

Sdo Paulo — Al. Gabriel Monteiro da Silva, 1227 Jar- 

dim Paulistano, CEP 01441, tels: (011) 280-4144 e 853- — JVxXQTO 
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Para controlar o liga-desliga de lampadas e aparelhos etetricos, 
um programa e uma interface para a linha Apple 



O ultimo a sair 
apague o micro 



Evandro Mascarenhas de Oliveira 



P ara os micros da linha Apple, apresentamos neste artigo 
uma montagem eletronica simples que per mite, atravds 
de programa simulando um reldgio eletronico, ativar 
ou desativar, por periodo deternunado, dispositivos 
eletroeletronicos (lampadas, motores, radios, toca-fitas, apare- 
lhos etetricos etc.). 

ONDE E COMO 

0 conector de jogos do Apple possui quatro saidas denomi- 
nadas Annunciators - ANN 0, ANN 1, ANN 2 e ANN 3 (pi- 
nos 15, 14. 13 e 12) — , que representam tensCes de zero ou 
cinco volts, dependendo dos endere^s compreendidos entre 
C058 e C05F a serem referenciados (figura 1). 



ANN 


PINO 


OV 


5V 


0 


■a 


C058 -16296 


C059 -16295 


1 




C05A -16294 


C05B -16293 


2 


13 


C05C -16292 


C05D -16291 


3 


12 


COSE -16290 


C05F -16289 



Figura 1 - Enderefos associados aos Annunciators ANN 0, 1, 2 e 3 para 
OeS Volts. 



Ao ligarmos o micro, estas saidas apresentam nivel baixo 
(emtorno de 0,2V), passando a alto (em torno de 4,2V) quan- 
do, no programa, s£o referenciados os endere^s citados atra- 
v£s de POKE end, 0. Isto permite fazer um chaveamento (in- 
terruptor eletronico) sobre um rete por meio de um transistor 
NPN — que faz a condu^o quando sua base est4 em nivel alto 
(interruptor fechado) ou entSo cortar a condu^o quando 
ela estd em nivel baixo (interruptor aberto). 

O circuito eletronico que reahza o controle da ativa^o ou 
nJo do iett estd na Figiua 2: a base do transistor TR1 , quando 

56 




Fotografia do protdtipo 



em nivel alto (endere 90 C059 do ANN 0, referenciado por 
POKE - 16295,0), permite a condu^o da corrente pela bobi- 
na do rete RL1 (indicada pelo acendimento do led Dl), provo- 
cando o fechamento dos contatos 1 e 2 e permitindo a circula- 
qSo de corrente de 1 10V para a carga (aparelho eldtrico para 
esta tens^o). 

Ao ser referenciado o endere 90 C058 por POKE —16296, 0, 
a tensffo em ANN 0, vai prdximo a 0V, interrompendo a con- 
du 9 fo de TR1, o que impede a circula^o da corrente na bobi- 
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Figura 2 - Circuito 
eletrdnico para o 
controle de cargos 
external por programa 
em computador da 
linha Apple. 
Observafdo: 

NA = Normalmente 
Aberto ; 

NF = Normalmente 
Fechado. 



na, indicada pelo apagamento do led Dl. Isto obnga os conta- 
tos 1 e 2 do rete a ficarem abertos, interrompendo a corrente 
de 110 V pela carga. 0 diodo D2 evita danos sob re TRl no 
momento da interrupt do circuito; R1 e R2 sao resistores 
limitadores das correntes em Dl e base do TRl. 

A tensao de alimenta^o do dispositivo 6 tomada no pr6- 
prio soquete do controlador de jogos (pinos 1 (Vcc) e 8 (ter- 



universal (filetes paralelos), sendo as conexSes feitas atrav^s de 
cabo Philips (cinco condutores), usando tres (dois para a ali- 
menta^o e o terceiro para o ANN 0). Ver figura 3. 

DETALHES SOBRE O PROGRAMA 

0 programa para controle 6 a simula^to de um reldgio ele- 
tronico, que serd acertado para os valores inicial, despertar » 




Figura 3 - Placa de circuito impresso universal 12.5x7,5, vista pela fa- 
ce dos componentes. 



ra)) e a bobina do rel£, apesar de ser para 6V, jd atrai a arma- 
dura para tensOes em torno de 3,5V, permitindo circular cor- 
rentes de at£ 8A pelos contatos, suficiente para a maioria dos 
aparelhos el^tricos utilizados. 

0 autor montou o sistema em placa de circuito impresso 



lilittO 

nsuji 

Microcomputadores com credito direto ou leasing 



COLOR 64 Cr$ 495 000. 
(CP-200 Cr$ 157 000. 
DGT-1000 Cr$ 320 000. 
TK-85 Cr$ 149000. 

I CP-500 Cr$ 749 000. 



X 2 (GRATIS APLICATIVOS)! 
X 2 (GRATIS 20 JOGOS) 

X 3 (GRATIS 20 JOGOS) 

X 2 (GRATIS 20 JOGOS) 

X 2 (GRATIS 20 JOGOS) 



CURSOS DE BASIC COM ATE 100% DE DESCONTO 
ENTREGA RAPIDA EM T0D0 BRASIL 
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0 ULTIMO A SAIR APAGUE 0 MICRO 



Relogio eletrotiico 



10 


INPUT "HORA INICIAL - “» 

H < 1 ) 


160 


20 


INPUT "MINUTO INICIAL - “1 






Nil) 


163 


30 


INPUT "SEGUNDO INICIAL - "1 






8(1) 


170 


40 


PRINT * PRINT 




30 


INPUT “HORA DESPERTAR - “* 






8(2) 


173 


60 


INPUT "MINUTO DESPERTAR - "1 
M (2) 




70 


INPUT "SEGUNDO DESPERTAR - "1 






S (2) 


180 


80 


PRINT * PRINT 


190 


90 


INPUT "HORA FINAL - -» 


200 




H (3) 


210 


100 


INPUT "MINUTO FINAL - - 


220 




1 M <3> 


230 


110 


INPUT "SEGUNDO FINAL - - 

18(3) 


240 


120 


HOME 


250 


130 


PRINT SPC< 10)1" HORA MINU 
TO SEGUNDO"* PRINT 




140 


PRINT "INICIAL “ * H ( 1 ) 1 SPC ( 

6> 1 M ( 1 > I SPC< 7) ; S( 1 > * PRINT 


260 

270 


130 


PRINT "DESPERTAR “*H<2>» SPC < 

6) 1 M (2) 1 SPC< 7MS<2>* PRINT 


280 



PRINT "FINAL "»H(3)I SPC < 

6) I M (3) I SPC< 7)1 S (3) * PRINT 

: PRINT * PRINT 

PRINT SPC< 11 >» “RELOGIO ELE 

TRONICO"* PRINT 

FLASH i VTAB 22* PRINT "APER 

TE OUALOUER TECLA PARA I NIC I 

AR A CONTAGEM"* GET A* 



FOR I - H(l) TO 23 
GOSUB lOOO* GOSUB 2000 
FOR J - M<1 > TO 39 
GOSUB 1000* GOSUB 2000 
FOR K - 3 < 1 > TO 59 
FOR M - O TO 975* NEXT 
HTAB 15* VTAB 15* PRINT " “ 

* HTAB 13* VTAB 13* PRINT I 
i HTAB 20* VTAB 13* PRINT " 

"* HTAB 20* VTAB 13* PRINT J 



* HTAB 25* VTAB 13* PRINT K 



290 H ( 1 > - 0* M ( 1 > - 0*S(1> - 0* GOTO 
180 



1000 


IF I - H<2> 


THEN 


GOTO 


1020 


1010 


RETURN 








1020 


IF J - M(2> 


THEN 


GOTO 


1040 


1030 


RETURN 








1040 


IF K - S (2) 


THEN 


GOTO 


1060 


1050 


RETURN 








1060 


POKE - 16293.0 






1065 


FLASH * PRINT "DESPERTOU"* 




NORMAL * CALL - 


1052 




1070 


RETURN 








2000 


IF I - H (3) 


THEN 


GOTO 


2020 


2010 


RETURN 






2040 


2020 


IF J » M<3> 


THEN 


GOTO 


2030 


RETURN 








2040 


IF K - S(3> 


THEN 


GOTO 


2060 


2050 


RETURN 








2060 


POKE - 16296.0 






2070 


PRINT “ 




“i PRINT 




* PRINT * PRINT "FINAL" 




2090 


END 









(ativa^So da carga) e final (desligamento da carga), cujo signifi- 
cado 6: 

• linhas 10 a 110 - especificam os valores inicial, despertar e 
final do reldgio pelas varidveis H(l), M(l), S(l), H(2), M(2), 
S(2), H(3), M(3) e S(3); 



dismoc 





* 


■ 


■ 




■■ 


A 


■ 


■ 


■ 




■ 


■ 






JUNTOS FORMAM 

A PERFEITA HARMONIA QUE VOCE PROCURA 
venha comprovar nosso atendimento 
EOriPWlENTOS-PROGRAMAS-CURSOS-CONSULTORlA 

Tesbi Inl'omiatica Ltda. 

\v. 28 dc setembro 226-lj. 110 tel : (021 ) 284-6949 



• linhas 130 a 170 — apresentam os valores de entrada e 
aguardam o acionamento de qualquer tecla (GET AS) para ini- 
ciar a contagem do tempo; 

• linhas 1 80 a 280 - contagem dos segundos, minutos e ho- 
ras. 0 loop da linha 230 controla o retardo necessirio para ca- 
librar os segundos (no micro do autor, o valor 975 dd para o 
tempo de um minuto, com erro de mais ou menos 0,02 segun- 
dos); 

• linha 290 — zera os valores de hora, minuto e segundo assim 
que as 24 horas forem atingidas, reimciando a contagem dos 
tempos; 

• linhas 1000 a 1070 - sub-rotina que testa o inicio da ativa- 
9 do do reld, referenciando o endereso C059 (linha 1060), exi- 
bindo DESPERTOU em modo flash e dando sinal sonoro — 
bip (CALL - 1052); 

• linhas 2000 a 2090 — sub-rotina que testa a hora final, desa- 
tivando o reld (referencia o endere^o C058 na linha 2060) . 



Lista de material 



1) Semi-condu tores 

• TR1 - transistor BC 548 - NPN 

• D1 - diodo fotoemissor ( led vermelho comum) 

• D2 - diodo 1N4007 

2) Resistores (1/4 Watt de mats ou menos 10%f: 

• R1 - 470 ohms 

• R2 - 1 ,2 kohms 

3) Diversos: 

• RL1 - relc Schrack para placa de dxcuito impresso, codigo 
RP010006, bobina de 6V 

• placa de circuito impresso universal, cabo Philips etc. ■ 



Evandro Mascarenhas de Oliveira 4 mddico e verr desenvotvendo sues 
atividades nos Areas de Laboratdrio CKnico e Instrumental ■&> MSdica. 
Traba/hou quatro anos com o computador Burroughs 6700 do Nudeo 
de ComputagSo Eletrdnica da UFRJ nas linguagens FORTRAN IV a 
ALGOL. E usu&rio dos micros NE-Z8000 e AP II. 
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Os Kits de Micro Chegaram! 

APPLEKIT - Kit de microcomputador tipo Apple® 




APPLEKIT 65020 



APPLEKIT 65400 



APPLEKIT 65300 



APPLEKIT 65100 



APPLEKIT 65000 






Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 



microcontrol 

Sistemas de Controles 
Tels.: (011) 814-0446 e 814-1 1 10 
Sao Paulo - Brasil. 



APPLEKIT 6500 0 ] Placa de circuito impresso. APPLEKIT 650101 Conjunto de soquetes. conectores, resistores e ca- 
pacltores. 1 APPLEKIT 65020 1 Conjunto de semlcondutores, TTL’s, LSI e memorias (As memorias EPROM slo forneci- 
das com grava^io). [APPLEKIT 65100 Conjunto de teclado alfanumerico com 52 tec las e componentes, circuito im- 
presso. rAPPLEKlT_65200] Fonte de alimenta^io tipo chaveado. I APPLEKIT 6530 0 : Caixa de microcomputador em 
poliuretano. [APPLE KI T 65 4 0(T Manual de montagem e teste de micro. 



APPLEKIT e 100% compatrvel com os cartOes perifericos da MICROCRAFT. 



Apple i marra tegtslrada de Apple Inc. 




Microcenter Informatica Ltda. 

Rua Dr Satamini 12-A — Tijuca jA 
TEL 228-0593 e 264-01 



TRANSFORME A SUA 
MAQUINA DE ESCREVER 
OLIVETTI ET 121 
EM IMPRESSORA 
DE COMPUTADOR 



Coma Interface da DW 121 sua mdquina 
de escre>»r OLIVETTI Eletrdnica ET 121 
se transforma em uma impressora de alta 
qualidade para textos ou programas, sem 
alteraras caracterfsticas originais da md- 
quina. 

Instalado internamente a Interface conta 
com um buffer de 2K bytes e uma sdrie 
de comandos especiais para a confecpao 
de textos, taiscomo: sublinhamento au- 
tomdtico, negrito automdtico, compri- 
mento de I inha programdvel e outros, po- 
dendo ser a co pi ado a qualquer tipo de 
MINI ou MICRO COMPUTADOR que te- 
nha sa id a SERIAL RS 232C/Standard ou 
Paralela 8 bits Centronics. 

Solicite maiores informapdes a 

□fltSV LUHEEL Bletrfinica 

INDUSTRI A E COMERCIO LTDA. 

Uma Divisao da ESFEROMAC Ltda. 

Rua Antonio Comparato, 200 

Tels.: 532-01 54 e 240-4829 

CEP 04605 Sao Paulo - SP 




^ □jurgos 

• O NETC - Nucleo de Ensino de Tecnologia 
e Ciencia estard promovendo entre os meses 
de janeiro e marpo os seguintes cursos: Hard- 
ware de Teleprocessamento (45h), Software 
de Teleprocessamento (60h), Amplificadores 
Operacionais II (40h), Instrumentapao e Con- 
trole II (72h), Eletronica Digital I (60h), Ele- 
trdnica Digital II (60h), Co mpu tad ores e Mi- 
crocomputadores Digitais - Hardware (45h), 
Hardware do Microprocessador 8080/85 
(35h) e Hardware do Microprocessador Z-80 
(35h). As aulas sSo retroprojetadas e apostila- 
das, dispondo-se de laboratdrios para aulas 
prdticas. Informapoes e pedidos postais de 
catdlogos de cursos na Rua Alvaro Alvim, 37, 
29 and. tel: 225-6013, Rio de Janeiro. RJ. 

e O CBI - Centro Brasileiro de Informatica 
apresenta os seguintes cursos: Teleprocessa- 
mento, Tdcnicas de ProgramapSo Estruturada, 
ProgramapSo Pascal, And Use Estruturada, Ma- 
nutenpSo do Microcomputador Pessoal DGT- 
100/1000, Projeto de Interfaces para Micro- 
computadores e Controle de Processos. Inscri- 
p6es e informapoes na Av. Passos, 115, si. 
215, tel: (021) 233-1123, Rio de Janeiro, RJ. 

• IntrodupSo aos Microcomputadores, Pro- 
gramapao BASIC, Linguagem BASIC, Mi- 
crocomputador para Crianpa, Aplicapao do 
Microcomputador na Engenharia e BASIC II 
para Crianpas. Estes sSo os cursos que a 
DATAMICRO Informdtica estd oferecendo, 
de segunda-feira a sdbado, em vdrios hordrios. 
Informapoes e inscrip oes na Rua Visconde de 
Pirajd, 547, sobreloja 211, Ipanema, tel : (021 ) 
274-1042, Rio de Janeiro, RJ. 

a Terao infcio em 19 de marpo os seguintes 
cursos promovidos pelo Instituto Maud de 
Tecnologia: Curso de Especial izapSo em 
Administrapao Industrial — CEAI, Curso de 
Extensao em Sistemas - CESI, Curso de Ex- 
tensao em Marketing para ExportapSo — 
CEEX e, com infcio em 15 de marpo, o Curso 
de Extensao em AdministrapSo de Transpor- 
tes — CEAT, todos com aulas & noite_. Hd um 
desconto de 10% para engenheiros graduados 
na Maud. Inscripoes na Rua Pedro de Toledo, 
1071, tel: 544-3135, Vila Clementino, SSo 
Paulo. SP. 

• A Tesbi oferece regularmente curso de 
IntrodupSo d Linguagem BASIC em turmasde 
seis alunos com aulas diretamente em TK85 e 
CP-500, nos hordrios da manhS, tarde e noite, 
duas vezes por semana. A durapao total do 
curso d de cinco semanas. 0 enderepo da 
Tesbi d Av. 28 de Setembro, 226, lj. 110, 
tel: (021) 284-6949. Rio de Janeiro, RJ. 

• O Centro Latino-Americano de Desenvol- 
vimento da Informdtica oferecerd um curso de 
Rede de Computadores, no mds de marpo. 
Este curso tern como objetivo capacitar os 
participantes a dominar o vocabuldrio utiliza- 
do pelos profissionais da drea; conhecer os 
principais elementos que compoem uma rede, 
suas funpoes e combinapoes possfveis; identi- 
ficar alternativas de tecnologia de redes, bem 
como possibilidade de utilizapSo e problemas 
envolvidos, entre outros. O CLADI fica na 
Rua Josd Gonpalves de Medeiros, 96. Madale- 
na. tel: (081 ) 227-2307, Recife, PE. 

• Estes sSo os cursos de extensdb universitd- 
ria que a UERJ estd oferecendo: Mini-Micro- 
computadores Eletronicos — Aplicapoes e 
Uso, 13/03 a 11/04, 36h; Andlise e Projeto 
Estruturado de Sistemas de InformapSo, 
19/03 a 20/11, 150h; FormapSo de Tdcnicos 
de ProgramapSo de Computadores Eletr&ni- 
cos, 21/03 a 21/11, 270h. Informapoes e ins- 
cripSes na Rua SSo Francisco Xavier. 524, 
Pav. Haroldo Lisboa, si. 214, tel: 264-8143 e 
284-8322, r: 2417 e 2507, CEP 20.550. Rio 
de Janeiro, RJ. 



• A MICRO'S Processamento de Dados 
promove regularmente cursos de programa- 
pao BASIC e COBOL. As turmas sao compos- 
tas de, no mdximo, 20 alunos e todo o mate- 
rial diddtico d fornecido pelo curso. Maiores 
informapoes na Rua Duque de Caxias, 450, 
Ediffcio Chams, Salas 702 e 703, tel: (034) 
235-6965, Uberlandia, MG. 

• O Instituto Psicodindmico de Idiomas estd 
oferecendo curso intensivo de BASIC para 
principiantes. A durapao do curso d de duas 
semanas, com carga hordria de 1 1 horas sema- 
nais. O curso baseia-se em 60% de aulas prdti- 
cas, 20% de demonstrapfies e 20% de teoria. 
O Instituto fica na rua M^tiniano de Carva- 
lho, 200, fone: (011) 284-3912, SSo Paulo, 
SP. 

• Informdtica para Usudrios, Fundamentos 
de Teleprocessamento e Fundamentos de 
Bancos de Dados sSo os cursos que a SCI estd 
oferecendo. As inscripdes estao abertas. Maio- 
res informap6es na Rua Jardim Botdnico, 635, 
89 and., tel: (021) 294-7438, CEP 22470, 
Rio de Janeiro, RJ. 

• II Curso de AtualizapSo em Andlise de Sis- 
temas d o que o I BAM estd oferecendo de 19 
de marpo a 08 de junho. O programa deste 
curso abrange Atualizapao Metodolbgica, O 
Estado da Arte da Tecnologia de Informdtica, 
Atualizapao Gerencial e Semindrios, Automa- 
pao de Escrit6rios e a Polftica de Informdtica 
no Brasil. As inscripdes devem ser feitas no 
Largo do IBAM, n9 1, Botafogo, Rio de Janeiro, 
Maiores informapoes pelo tel: 266-6622, RJ. 

• A FUNDEP e a UFMG estao oferecendo 
os seguintes cursos, no perfodo de marpo a 
agosto: Curso BASIC, Curso FORTRAN, Cur- 
so de Microprocessadores e Curso Pascal. Um 
curso sobre O Computador na AdministrapSo 
— Treinamento de Usudrios, tambdm estd sen- 
do oferecido, de 15/03 a 16/04. Maiores in- 
formapoes na Av. Antonio Carlos, 6627 — 
Pampulha — Belo Horizonte — tel: 441-8077, 
R. 1447 e 1451, MG. 

• A Compbel promove regularmente cursos 
de IntrodupSo a Microcomputadores, para 
estudantes de nfvel colegial, BASIC I, BASIC 
II e Visicalc Plus. Em todos os cursos o nume- 
ro mdximo d de tres alunos por equipamento. 
A Compbel fica na Rua Gregdrio Paes de 
Almeida, 62, Vila Madalena, SSo Paulo, tel: 
(011) 65-9857, SP. 

• A Erkla estd promovendo a partir deste 
mds cursos de: Microprocessadores Z80, 
Microprocessadores 8080/8085, Assembler 
Z80, BASIC, Bdsico de Sistemas Digitais, en- 
tre outros. Maiores informapoes na Av. 
Pacaembu, 1261, tel: (011) 67-8339 e 
826-1499, SSo Paulo. SP. 

e A Compucenter estard promovendo de 20 
a 22 de fevereiro curso de AdministrapSo de 
Dados e Data Entry - tdcnicas para aumentar 
a produtividade, de 22 a 24 de fevereiro. 
Maiores informapoes pelo tel: (01 1 ) 255-5988, 
SSo Paulo, SP. 

• Cursos de BASIC I, BASIC II e Uso de 
Aplicativos por Cr$ 60 mil. Eldorado Compu- 
tadores, Rua Visconde de Pirajd, 351, sis. 
213/214, Ipanema. tel: 227-0791, Rio de 
Janeiro. RJ. 

e A Data Record estd oferecendo cursos de 
BASIC, COBOL e DigitapSo. Perfodos: manhS, 
tarde, noite e fins de semana. A Data Record 
tambdm oferece bolsas especiais para estudan- 
tes. Maiores informapSes na Av. Santo Amaro, 
5450, Brooklin. tel: (011) 543-9937, SSo 
Paulo. SP. 



e Para informer ao lertor sobre os cursos que 
estSo sendo oferecidos, a revista recolhe in- 
formapSes em dlversas mstituipOes ou as rece 
be pelo correio Portanto, nSo nos responsabi- 
lizamos por quaisquer alterapdes posterior- 
mente efetuadas por estas instituipOes nos 
programas ou prepos. 
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Usudrio da linha TRS-80 modelo l.aqui esta um utilitdrio para voce nao 
perder de vista seus prog ra mas em linguagem de maquina gravados em cassete 



PROSYS 



Esdras Avelino Leitao 



0 programa l*rosys tem a finalidade de ajudar os usuarios 
de micros compativeis com o TRS-80 modelo I a lden- 
tificar, localizar e carregar programas em linguagem de 
maquina, especialmente os que nao possuem cassete com con- 
tador de giros. 

Ao ser cairegado, o Prosys ficara localizado numa drea da 
memdna ndo utilizada poi sistemas sem disco(403EH - 407DH) 
e s6 sera afetado com a ocorrencia de um RESET geral (volta 
ao READY?). 

Ele oferece as seguintes facilidades: 

1) coloca no video o nome de cada programa a medida em que 
vai lendo a fita cassete; 

2) permite iniciar a procura de um programa em qualquer po- 
sigao da fita, mesmo a partir do meio de um programa; 

3) permite a parada do cassete a qualquer instante para voltar 
ou adiantar a fita, e o subseqilente retorno a tecla PLA Y; 

4) ao localizar o programa desejado, o comando 6 transferido 
automaticamente para a sub-rotina normal do sistema, que pas- 
sa a carregar o programa na memdria; 

S) a qualquer instante basta teclar: 

LOAD 

*? NOME DO PROG. 

e o cassete serd ligado, imciando a procura do programa dese- 
jado. 

Uma boa medida d carregar este programa no initio de cada 
fita cassete. Assim, voce terd controle total sobre todos os seus 
programas em linguagem de maquina. 



Prosys 

10 CLS 

20 PRINT @2 5 6, "PROGRAMA PARA LOCA 
LI ZAR, IDENTIFICAR E CARREGAR PR 
OGRAMAS EM LINGUAGEM DE MAQUI 
NA . " 

30 PRINT: PRINT "TECLE -LOAD- E A 
POS 0 -*?- O NOME DO PROGRAMA" 

40 FOR 1=0 TO 2: READ Z: POKE 16 
776+1, Z: NEXT I 

50 FOR J=0 TO 59: READ W: POKE 1 
6446+J , W : NEXT J 

60 DATA 195,62,64,49,136,66,205, 
254,32,62,42,205,42,3,205,179,27 
,215,205,147,2,205,53,2,254,85,3 
2,246 

70 DATA 6,6,17,55,60,205,53,2,18 
,19,16,249,33,232,65,17,55,60,6, 
6,126,183,40,8,26,190,32,218,35, 
19,16,244,205,231,2 ■ 




SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 

• Fita Magnetic* 600. 1200 e 2400 M* 

• Fita CARBOFITAS p/lmpressoras: Globus M 200 — B 300/600 

• Fita p/lmpressoras: Elebra. Oigilab. Diablo. Centronicetc. 

• Cartucho Cobra 400 

• Pastas e FormuiariosContinuos. 



Discos Magneticos 5 Mb. 16 Mb. 80 Mb etc. 

Diskettes: 5 1/4. e 8 Poiegadas — Simples e Dupla Face 

ETIQUETAS PIMACO -PIMATAB 



AV PRESIDENTE VARGAS 482 - GR 207 • TELS (0211 263-5876 - 253-1120 - RJ 
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Por que usar a sua, se voce tem a memdria do computador? Um cat&logo de programas, 
por nome ou disquete, 6 o que propomos para os micros da linha TRS-80 



Programa que 
arquiva programas 

Lawrence F. King 



U m dos maiores problemas de 
quem possui muitos discos 6 
lembrar em que disquete se en- 
contra um determinado programa. Ou 
voce possui uma memdria formiddvel, 
ou entSo terd que se utilizar de um pro- 
grama que o fa 9 a por voce — e £ eviden- 
te que voce nao vai querer um programa 
que leve muito tempo para localizd-lo, 
ou que demore demais para classificar um 
arquivo. Por isso mesmo, o programa para 
catalogado de disquetes que aqui traze- 
mos ( Catdlogo/BAS ), ainda que escrito 
em BASIC, utiliza rotinas em Assembler 
para suprir suas deficiencias quando o 
fator tempo torna-se crltico. 

Desenvolvido para computadores 
compatfveis com o TRS-80 modelo III, 
o programa ocupa toda a memdria dis- 
ponlvel, sendo que a configura^o mini- 
ma para rodd-lo 6 48 Kb de RAM e um 
ou mais drives. Os sistemas operacionais 
a serem utilizados podem ser o DOS 
500, TRS DOS e demais compatfveis. 

INSTRUCTS DE UTILIZA CAO 

Coloque o disquete contendo o siste- 
ma operacional e o programa Catdlogo/ 
BAS no drive zero. Carregue o DOS. Se 
voce for usar a impressora para impnmir 
o catdlogo, use o comando FORMS para 
informar ao programa quais as dimen - 
sdes do formuldno que voce esti usan- 
do, por exemplo, FORMS (WIDTH 
= 80, LINES = 66). Depots disso, cha- 
me o BASIC-Disco. Responda IV d per- 



gunta QUANTOS ARQUIVOS e entre o 
comando para executar o programa: 
RUN CATALOGO/BAS. O sistema ope- 
racional o carregard, erxtao, para a me- 
mdria principal, executando-o em segui- 
da. 

O programa abrird o video em tres 
partes: a parte superior, composta das 
linhas 0 e 1 ; a parte do meio, composta 
de dez linhas (3 a 12) e a parte inferior, 
composta de duas linhas (14 e 15). Cada 
partifio do video 6 separada da outra 
por um trafo horizontal. 

A parte superior 6 puramente mfor- 
mativaid dividida nos seguintes campos: 

1 — extrema esquerda: indicate de au- 
toria; 

2 - extrema direita, linha 0: numero do 
registro que estd sendo lido do arquivo 
ou o numero total de nomes atualmente 
catalogados; 

3 - extrema direita, linha 1 : campo para 
prefenchimento da data a ser impressa na 
listagem (o preenchimento 6 obrigatd- 
rlo, mesmo que a listagem ndo seja fei- 
ta); 

4 - meio do video, linha 0: nome do 
programa entre asteriscos ***CATA- 
LOGO **** 

5 - meio do video, linha 1 : versdo cor- 
rente do programa ou fun^o que esti 
sendo executada no momento. 

A parte do meio 6 utilizada para a 
apresentafao do menu, e 6 tambdm o 
local por onde se dard toda a entrada e 
salda de dados. A parte inferior 6 em- 



pregada pelo programa para orientar e 
informar sobre posslveis erros cometi- 
dos, como por exemplo, TECLE < EN- 
TER > PARA CONTINUAR. 

O menu apresenta sete (7) op 9 des, a 
saber: 

1 - CRIAR/ATU ALIZAR CATALOGO ; 

2 - INSERIR DIRETORIO NO CATA- 
LOGO; 

3 - DELETAR DIRETORIO DO 
CATALOGO; 

4 - LISTAR CATALOGO; 

5 - LOC ALIZAR PROGRAMA; 

6 - SALVAR CATALOGO; 

7 - TERM IN AR 

Para as op 96 es um, dois e tres, o pro- 
grama pediri que voce informe de quan- 
tos drives dispbe. Na verdade, o progra- 
ma utiliza sempre o ultimo drive do sis- 
tema, isto 6, se voce tiver dois drives e 
responder i pergunta com 2 , ele pedird 
que voce coloque o disquete a ser cata- 
logado no drive 1 ; se voce tiver somente 
um drive, deve responder 1 k pergunta, e 
ele pedird que voce retire o disquete 
com o programa Catdlogo/BAS e colo- 
que o disquete a ser cataJogado no drive 
0 . 

Para todo disquete a ser catalogado 
ou deletado, o programa exibird, na par- 
ti 9 So do meio do video, o conteudo do 
disquete e perguntard se voce quer real- 
mente catalogd-lo ou deletd-lo. Ap 6 s a 
catalogado, altera^o ou dele^o do 
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Catilogo 



0 ' PROGRAM/* PARA CATALOGAR DIRETORIOS DL D1S8UETES 

AUTORJ LAURENCE FALCONER KING - IF* (0242) 42-1919 

1 

3 P0KE16562.4HBAlP0KE16561.4H7C 

6 CLEAR 2300 

7 DEFINTA-Z 

20 X'0*0PEN"R", 1 , "CATALOGO/TXT", 16SFIELD1 , lAASDisDNt^" "ISK*-" "*PN*-STRING*( 1 

6," "> 

30 ZP-0*Z»0*Zl-0» 

31 Z%-“ " * ZNt“” "1ZH-" "«ZF*-“ ~* 

32 DN=-1 *CSS"STR INGS( 10,13) *Z2%“"ABCDEFGHI JKLMNOPQRb i uvwaTZ 1234567890" 

41 DATA 32717,-6902, 33,-20676, 1798, 9134, -1008, 16430, 4358, 9134, -1008, 510, 
1064,-223, 13567,-7715, 28381,-8956, 1382,-8785, 2167, 30685,-6903,-6683, 5073,- 
767, 13830,-4832,-7760, 4097, 2304,-6691, 18141, 20236,-28467,-8894, 8417,-11944 
, 2223 

42 DATA-3B6, 10283,-425, 14401,-450, 12379,-6854,-5163, 20189,-8946, 3910,-5367, 
3078,-386, 10298, 4613, 4899,-2544, 481, 16,-5367, 29661,-8954, 1906,-10795, 50 

89, 3841, 13824,-4832,-11856, 15368. 30685,-504,-7856, 5672, 264, 21. 32265, 112 
62, 3112 

43 0ATA-20944 , 6179,-15957, 33,-15616, 2714, 289,-15616, 2714 

51 DATA 32717.-6902,-223,-20481,-8841,-8735, 2670, 26333, 19979, 6, 24099, 22051 
,^13347, 17922, 7976,-8725, 1630, 22237 , -4857 , -8784, 1651, 29405,-8953, 2158, 26 
333. 8969, 30173,-8952, 2420, -25917,-10998, -8763, 94, 22237, 6913, 33,-13568, 12 

545 

52 DATA 6401, 1320, 10731, 6379,-8716, 1118. 22237, 6405,-11839,-13347, 19970, 8 
00,-20243,-5175,-20243, 28381,-8954, 1894,-4681, 14418,-8952, 2158, 26333, 6153, 
-8771, 1651, 29405,-8953, 110, 26333, 6145, 169 

71 DATA 32717,-6902,-7715, 20189. -8958, B38, 17, 2048, 32477, 2054,-8743, 1134, 
26333, 19973, 24099, 22051, 28381,-8960, 358,-10811,-10779,-8839, 2251, 8262, 32 
257, 24099, 22051,-8725, 2654, 22237, 6411.-13347, 17928, 1056, 12435.-20735,-11 
961 

72 DATA 1284, 1568, 3340, 15648, 12568, 3340, 3112,-16870, 1568, 4899, 3333,-612 
0, 11056,-2808,-3832, 22475, 11552, 31193, 10416, 2827,-9965, 9185, 8995,-15919, 
-21992,-7925,-7711,-7739,-25917, 2058, 2293,-13327, 8263, 6156, 2269, 2293,-1332 
7, 8271 

73 DATA 6146,-9773,-15915,-8424 

91 DATA 32717,-6902, 33,-20676, 1798, 9134,-1008. 16430. 4358, 9134,-1008, 510, 
1064,-223, 13567, 24289, 22051 , -6877, -6677 , L7963, 20011,-7719, 24291, 22051, 15 
71, 19968, 29153, 29475, 29219,-5341,-5367, '3033,-20359,-9784,-4328. 

101 DATA 32717,-6902, 8677,-1,-386, 14341, 12803, 16636 , -8735, 7B735f„/590, 18141, 
6147,-9980,-9755, 8641, 0,-4681,-12222, 14539, 6603,-9787,-9709, 28381,-8958, 8 

70,-4681,-6846,-11815, 2265,-30773, -8952 , 78. 18141,-15103, 289,-6912,-15911,-97 
55, 6609 

102 DATA-11803, 6441, 24285,-8960, 342,-12007,-6699, 3096,-771 1 . -2808 , -3832, 183 
79,-20184,-12520, 20250,-10938, 24099. 22051 , -1 1797 , -5147, 24099, 22051, 1249. B 
197, 3078, 8205, 6191, 3088, 10253, 6668, 8382, 8966, 1299, 6157, 12520,-9955,-1 

4891 

103 DATA-11815, -18463, 21229,-16856,-10989,-15911, 1753, 3584,-12029, 2529,-5147 
,-6903,-18408,-11807,-6699, 774, 19994, 31095, 8978, 4115, 2295,-14389, 6152, 83 
98 

111 DATA 32717,-6902,-7715, 20189,-8948, 94, 22237, 6913, 33,-13568, 12345, 6401 
, 1320, 10731, 6379.-5132, 28381,-8956, 1382, 8935, 4725, 29917,-8941, 4206, 263 
33, 17937, 9032, 9054,-10922,-8763, 94, 22237,-8959, 2158, 26333,-18679, 21229, 
23096 

112 DATA 28381,-8942, 4966, 24285, 5646, 6400,-11839,-14891,-16870, 1568, 8979,- 
2032, 8472, 28381,-8960, 358,-8925, 117, 29917.-8959, 4718, 26333,-8941, 3166, 2 
2,-8935, 4725, 29917, 6163,-8780, 5323, 10310,-8926, 2670, 26333, 17931, 24285,- 
8942 

113 DATA 4950, 294/5, 29219, 28381,-8960, 358, 1048, 46, 38,-15935,-25917,-8950, 
4718, 26333,-6893, 24285, 5644, 6400.-5147, 28381,-8954, 1894.-4681,-6830.-7743 

, 10449,-4862,-8784, 3150, 6, 24285,-8954. 1878.-7723, 13851,-4832,-8776, 1653, 
29917 

114 DATA-8953, 2158, 26333, 11017, 30173,-8952, 2420,-19432 

121 DATA 32717,-6902,-223. 32511, 1534, 824 . -974. -8896. -8735, 2126, 18141,-8951, 
2670, 26333, 32267, 24099, 22051, 28381,-8956, 1382, 30984, 10416, 2892,-10811, 

-8731, 3150, 18141, 2317, 2539,-8725, 3654,-16870, 1064, 4152, 1048, 4899,-3056, 
2273 

122 DATA 5727, 6400,-15919,-11240, 28381,-8954, 1894.-10799,-18459,-4829,-6830,- 

7743 2277, 5727, 6400,-7701, 29661, 8954, 1906,-18195,-11807, 6337,-6891, 2261, 

28381,-8954, 1894, 6, 2383, 30173.-8954, 1908.-7727, 1771, 20224,-20243, 28381, 
-8952 

123 DATA 2406,-8925, 2165, 29917,-15607, 2714 

200 DEFFNSK%( AS , AX >“LEF T% < AS , - < AX“2 )»3>*MI0S( AS , 5, - < AX“l > • t ) 

201 DEFFNZPX(A1X,A2X>— ( ( A1 X- INI < A1X/A2X) »A2X> >0) « INT ( A1X/A2X) ♦!-( ( AlX-INT ( A1X/A 
2X ) • A2X ) -0 ) ■ INT < A1X/A2X > 

202 0EFFNPNS(AS,AX)-RIGHTS(AS,12>*" "♦M1DS<" "♦LEFTS! AS, 3) ♦" ",-(AX-2)«i-(A 

X-1)»4,-(AX=2)«3-(AX*1)»7) 

203 OEFFNMPX( AX )“ (PEEK (16424)-14)»AX 

300 J-0sCl-0*C2"0*Rl«0tM0S*"TECLE (C> PARA CONT INUAR "IM1S-"TECLE (M> PARA VOLTAR 
AO MENU" * M2S“"TECLE A LETRA DE SUA 0PCA0"*M3S-" (L) PARA LISTAR* OUTRO DISCO" 

310 D I HUB ( 87 > , U1 < 69 ) ,U5( 34 ) ,U6< 100) , U3( 78 > ,U4 ( 122) ,U7(81 ) ,0IS(79> ,CTS( 999 ) ,MS< 13 
) 

311 MS ( 0 > - "" * MS ( 1 ) -"COLOQUE 0 01 SOIJL IE A SER CATALOGADO NO DRIVE " 

312 MS! 2>""CR I ANDO/ATUAL IZANDO" IMS! 3>*"INSER INDO" IMS ( 4 > »"DELET ANDO" *HS! 5 > “"L I8TA 
NDO"lMS<6>»"LOCAHZANDO~iMS(7>-"SALVANDO~*MS(8>-"TERMINANDO~lMS!9>«"TIRE 0 OISOU 

ETE CATALOGADO DO DRIVE 0 

E COLOQUE 0 DISQUETE COM 0 PROGRAMA •• CATALOGO »•" 

313 MS( 10) ""PROGRAMA" * MS ( 11) “"DISCO"* MS < 12) ="LETRA "*MS! 13>="DISC0 " 

320 FORX«OT087SREADU8(X> sNEXT *F0RX=0T069«READU1 (X) INEXT :F0RX-=0T078 IREADU3! X > * NEX 
T*F0RX-0T034!READU5(X)!NEXT*FORX-0TOlO0*READU6(X)sNEXT«FORX=0T0122*READU4(X)»NEX 
T IF0RX*-0T081 *READU7(X) «NEXT 

341 CS(2>-16 

342 C8(2)>-*HF900:C8(3>“C8(2)*C8(5)»VARPTR(0S) *C8< 6)=0*CB( 7 )»1 sC8X<8)*VARPTR (SKS) 

343 Cl (2 > “4HBA7F IC1 ( 3 )“C1 (2)*C1(4> *0 * C 1 ( 5 > J VARP TR ( DS > *C1 < 8 > “ VARP TR t SK S ) 

400 DEFUSR 1 “VARPTR < U1 (O) ) *DEFUSR3*'VARPTR (U3 ( 0 > ) *DEFUbR4=VARPTR (U4 ( 0) ) :0EFUSR5*VA 
RPTR(U5(0))sDEFUSR6=VARPTR(U6(0))*DEFUSR7-VARPTR(U7(0))!DEFUSR8-VARPTR(U8(0) > 

499 GOTOIOOOO 

8402 ZNS»"~*ZX=l:PRlNTaZPX.ZFS* 



diret6no, o numero de nomes cataloga- 
dos, exibido no extremo superior do vi- 
deo, serS atualizado. 

A funcAo de cada opcAo 

A primeira opdo possibilita criar um 
arquivo pela primeira vez ou atualizar 
um catSJogo j a existente. Esta escolha 6 
realizada pelo prdprio programa, ou 
seja, quando nSo existir nenhum nome 
de programa arquivado, a opdo 6 consi- 
derada como CRIAR; caso contrSrio, 
vope estarS realizando uma ALTERA- 
£A0. Uma ALTERA^AO torna-se ne- 
cessSria sempre que voce auiser retirar 
ou inserir um programa do/no disquete: 
com esta op$2o, voce vai deletar o dire- 
t6rio catalogado anteriormente e inserir 
o novo. 

Voce vai utilizar a op 9 §o dois quan- 
do sua discoteca aumentar e for neces- 
sdrio usar outro disquete para guardar 
seus programas novos. Esta op 9 ao possi- 
bilita inserir no catilogo o diretdrio de 
um disquete novo. 

A op^So tres 6 a oposta da dois, ou 
seja, serve para voce retirar o diretdrio 
de um disquete inteiro do catllogo, por 
motivo de perda ou extravio. 

As op$5es quatro, cinco e seis n2o re- 
querem a leitura de nenhum diretdrio de 
disco, mas, apenas, o uso do arquivo-ca- 
tilogo que se encontra na memdna de 
seu micro. Este arquivo encontra-se 
sempre classificado por ordem de pro- 
grama, de modo que toda consulta ao 
arquivo se torna extremamente rdpida, 
assim como a listagem do catUogo, clas- 
sificado por ordem de programa. 

Voce pode querer verificar, atrav^s 
do video de seu micro, o conteudo de 
um determinado disquete ou listar o 
conteudo de todo o catdlogo, classifica- 
do por programa ou por disco, no vfdeo 
ou na impressora. Estas s2o as possibili- 
dades que lhe slo oferecidas pela op 92 o 
quatro. NSo se esque^a, por^m, de que a 
a classificado por programa jS estS reali- 
zada e nSo requer nenhum tempo adi- 
donal, ao contrSrio da classificado por 
disco que, em testes realizados, levou 18 
segundos para classificar um arauivo de 
1000 nomes de de programas (numero 
mSximo de nomes permitido). 

Um fato interessante neste programa 
6 que, se voce pedir a listagem, no vfdeo 
ou na impressora, classificada por disco, 
o arquivo-catSlogo nSo tern sua ordem 
alterada, isto 6 , ele continua classificado 
por nome de programa, apesar de voce 
receber os dados na ordem em que pe- 
diu. Para verificar isto, pe?a para que o 
catSlogo lhe seja mostrado no video em 
ordem de programa; voce verS que nSo 
houve tempo de classificado. Depois 
pe 9 a que lhe seja exibido por ordem de 
disco: desta vez ele serS classificado. 

Veja bem que o programa foi orgam- 
zado em termos de classificado por pro- 
grama. Se voce pedir uma listagem do 
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PROGRAMA QUE ARQUIVA... 



8403 Zt«INKEYt:lFZf-""THENG0T08403ELSEIFZX>0ANDINSTR< "1234567890", Zf > THENPR INT8Z 

PX*ZX-i,Zt,:ZNt“ZNt*Zt:ZX=INSTR<ZX+l,ZFt,CHRt<95>>:GOTOB403ELSEONINSTR<CHRt<8>*C 

HRt<31)*CHRt<13) ,Zf >G0T08402. 8402, 8407 :GOT08403 

8407 IFZX>OTHEN8403ELSERETPRN 

8802 ZX»0:PRINT8ZPX.STRINGt<ZlX,95>,- 

8804 Zt-INKEYt :IFZt-""THEN8804ELSEIFZX-ZlXTHEN8805ELSEIFINSTR<Zlt,Zt> THENPR INT8Z 
PX*ZX , Zf , i ZX-ZX+ 1 JG0T08804 

8805 ONINSTR (CHRf (8)*CHRf( 31 > ♦CHRf ( 13 > , Zf ) GOT 08807 , 8802,8810:00108804 
8807 ZX— <ZX>0>»<ZX-1 ) :PRINT8ZPX*ZX,CHRt<95) , :G0T08804 

8810 IFZX“0THENG0T08804ELSEPR INT8ZPX*ZX , STR ING4( Z 1 X- ZX , " ">, 

8811 IFZX)0THENG0SUB9202:RETUPNELSEZNt-"':RETURN 
9002 Zt-INKEYf: IFZt-""THEN9002ELSERETURN 

9202 ZNt-" " :POKEVARPTR < ZNt) ,Z1X:P0KEVARPTR <ZNt)»2,INT( ZPX/256 ) +60:P0KEVARP TR <ZN 
* > *1 , ZPX-INT ( ZPX/2S6 ) «256 : RETURN 
10000 CL-S 

10002 PR INTSO, "AUTOR : ~,825."»» CATALOGO ••" ,864 , "LAURENCE F. KING ",892,"VERSA0 
2“ ,8128 , STR INGf (64 , 140) ,8832, STR INGf ( 64 ,140), :ZP“120:ZFf “STR INGf <2,95) ♦"/"♦STR I 

NGt<2,95)+"/"+STRlNGt<2,95> 

10003 0NERR0RG0T010006IGET 1,1 

10004 Cl(0)“HCi(l)“l:Cl (5) “VARPTR <05 ) : ONERRORGOTOOsPR INT8462 "LENDO ARQUIVO CAT 
ALOGO/TXT DO DISCO", 

10005 F0RX*1T0L0F <1)<GET1,X>PR INT360, USING"NNMN", X , : J“USK 1 < VARPTR <C1(0)))SNEXT:G 
0T010010 

10006 IFERL-10003AND<ERR/2+l-52)THENRESUNE10010 

10007 PR INTS896 , CHRtOl > ,"ERRO “,ERR/2*1 ,"NA LINHA “,ERL, «CL0SE«F0RX-0T01000lNEX 
TlCLSlEND 

10010 PR I NT 8896 . CHRt ( 31 > , 81 28 , CSf , 860 , US I NG"NMNN" , Cl < 4> , : ONE (fR OR GOT 00 
1002U PR INT82S6 , " 

vl> CRIAR/ATUALIZAR CATALOGO 

<2) INSERIR DIRETORIO NO CATALOGO 

<3> DELETAR DIRETORIO DO CATALOGO 

<4> LISTAR CATALOGO 

<5> LOCALIZAR PROGRAMA 

<6> SALVAR CATALOGO 

<7> TERMINAR", 

10021 PR INT8896,CHRf( 31 > , t IFPEEK ( 15480 ) °320R PEEK < 15480 ) “95THENPR INT89 12 , CHRf ( 31 > 

, "ENTRE A OATA DE HOJE . . . < ENTER >" , : G0SUB8402 : ZFt="“ 

10022 PRINT881 ,STR INGf (37 ," “> ,892, "VERSAO 2“,8896,CHRf <31 ) ,8914, “ENTRE 0 NUMERO 

DA TAREFA IG0SU89002«R t-INSTR < “1234567“, Zf) « IFR 1-OTHEN10022EL8ETFRK 4THENZ 

Ff -"< 4” 

10023 IF<C1<4)-0AND<R1-10RR1>5))0R<C1<4> >0>THENX-3ELSEIFC1 < 4 1-OANDR 1 > 1THENX-2ELS 
EX-1 

10024 0NXG0T010025, 10026,10029 

10025 PR INT8921 ,CHRf <31 ) ,"OPCAO INVAL IDA", 8976, Mlf , :GOSUB 9002 « GOTO 10022 

10026 PRINT8900.CHRS <31) ,"NAO EXISTE NENHUM DADO NO CATALOGO, VOCE SO PODE CRIAR 
-L0“ , 8976 , Ml f , : G0SUB9002 : G0T01 0022 

10029 PR INT8896,CHRf (31 ) , 864+ (64-LEN(MS<Ri+l )))/2,MS(Rl+l), :ONR 1G0T01 1000, 11000, 

1 1 000 , 12000 , 1 3000 , 1 4000 , 1 4000 : GOTO 1 0022 

11000 GOSUB 38000 : 0NRlG0T011001.il 003 , 11 001 

11001 IF J>00RC1 < 4) “0THEN1 1010ELSEPR INT8460, "ESTE DIRETORIO NAO EXISTE NO CATALOG 
0. . .",8978,Mlf , 8G0SUB9002JG0T010010 

11003 IF J=0THEN1 1010ELSEPR INT8460,"ESTE DIRETORIO JA EXISTE NO CATALOGO. 8978 
,Mlf , : GOSUB 9002:GOT010010 

11010 PR INT8128, CSf , 5 IFR 1 = 3THEN1 1 100ELSE IFDN > -1 THENG0T01 101 1ELSEPR INT8463 , “QUANT 
OS DRIVES ESTAO DISPONIVEIS 7 ", :ZP=500:Zlf»"12":Zl«l :G0SUB8802:DN-VAL< ZNt )-l 

11011 PRINT8128. CSf ,8896, CHRf <31 ), 8392, Mf(l>,DN, 8980, M0f,sG0SUB9002«PRINT8l28.CS 
f, 8896 , CHRt ( 31 ) , 

11020 C5<0> “VARPTR <DH<0)>:C5<1>=*HF900:J=USR5< VARPTR <C5<0>>> 

11030 C8<6> “ON: J“USR8( VARPTR < C8 < 0 ) ) > : IFC8( 4 )“OTHENPR INT3467, "DISQUETE NAO CONTEM 
DADOS", 891 l.Mlf, i GOSUB 9002 l GOTO 100 10 
11050 C6< 0)-VARP TR < DI t<0) > :C6< 1>-C8< 4 >-l:j“USR6< VARPTR <C6<0>>> 

11070 X-0iPRINT8910,CHRf<31), "DIRETORIO A SER INSERIDO NO CATALOGO", 8192, "",« IFC 
8(4) < = 4OTHENG0T01 107 1 ELSEFOR X“0T039 1 PR I NTO If ( X > , :NEXTX:PR INT8976 , MOt , IG0SUB9002 

11071 PR INT8128,CSf ,8960, CHRf ( 31 ) ,8192, "", : FOR X = X T 0C8 < 4 >>PRINTDIf(X>, I NEXT X 

11072 PR INT8963 , CHRf ( 30) ,Mif ," ",MOf , : GOSUB 9002: PR INT8128,CSf, 8896, CHRf <31 > , l 
IFZf *-"M"THENG0T010020ELSE : ONR 1G0T01 1 100 , 11200 

11100 IFC1 ( 4 )“0THENG0T01 1201ELSEG0SUB383O0 : PR INT8963 , Mlf , " ",MOf ,CHRf <30) , «G0 

SUB9002IPR INT81 28, CSf ,8896, CHRt <31 ) , : IFZf “"M"THENG0T010010 

11101 GOSUB 38 100: IFZ1-CK4) =OORR 1 •3THENGOT010010 

11200 IFC8<4)4C1<4) < ■1000THEN1 1201 : GOT 01 1201ELSEPR INT3921 , CHRt <31 ) , "NAO HA MAIS 
ESPACO NO CATALOGO PARA ESTE DIRETORIO", 8976, Mlf, :G0SUB9002>PRINT8128,CSt, :8896, 
CHRt(31 > , IG0T010010 

11201 GOSUB 38200: PR INT8 128, CSf , : GOTO 100 10 
12000 PRINT8128, CSf ,8384," 

<D> DISCO 

<C> CATALOGO" , 8977 , M2t , : GOSUB 9002 1 ONINSTR < "DC" , Zf) GOTO 12 100 , 12200 • GOTO 12000 
12100 GOSUB 38000: IF J>0THEN121 10ELSEPR I NTS 128, CSf ,8463 , "0 DISCO NAO SE ENCONTRA N 
0 CATALOGO", 8962, CHRtOl), Mlf," ",M3t , :G0SUB9002: IFZt-"M"THEN10010ELSE12100 
12110 GOSUB 38300: PR INT8962 , CHRf ( 30) ,Mlt ",M3t, :G0SUB9002« IFZt-"M"THEN10010E 
LSE12100 

12200 C5<0) “VARPTR (CTt(0)):C5<l) *4HBA7F : J“USR5< VARPTR (C5< 0 > > ) 

12210 PR1NT8128, CSf, 8896, CHRtOl), 8384," 

<P> CLASSIFICADO POR PROGRAMA 

<D> CLASSIFICADO POR DISCO" , 8977 ,M2t, :G0SUB9002:Z1-INSTR < "PD", Zf > :P 
R I NT8128 , CSf , 3896 , CHRt ( 31 ) , lONZl GOTO 12230, 12220:G0T012210 

12220 PRINT8468,"C LASSIFICAND 0" , :C6(0)-VARPTR <CTt< 0) ) :C$< 1 )“C1 < 4>-l : 
J“USR6< VARPTR ( C6( 0) > ) 

12230 PR INT8364 , " 

<V> SAIDA NO VIDEO 

U> SAIDA NA IMPRESSORA", 8977, M2t, :G0SUB9002:PRINT8128, CSf, 8896, CHR 
f (31) , l ONINSTR < "VI" , Zf) GO TO 12300, 12410:G0T012230 

12300 0NZ1G0T012301, 12350 

12301 F0RX“0T0C1<4)-1 :Z“192*INT <.<X-INT < X/30) *30)/3> •64*4*20»<X-INT < X/3 ) «3 ) I PR I NT 
3Z,RIGHTt<CIf(X) ,12)+" "♦LEFTt<CTt< )T> ,3) , s IT Z < 812THENNEX IELSEPR INT8963 , MOt , " 

" »Mlt, : GOSUB 90021 IFZf < >~M"THENPR INT8128, CSf , 8896 , CHRt < 31 ) , : NEXTXELSEX«C1 < 4 ) INEXT 
X 

12302 IFZ“812THEN1001 0ELSEPR1NT 8977 , Mlf , : G0SUB9002:PR INT812B , CSf , : G0T010010 
12350 DNf “LEFTt <CTt<0) ,3) :PR INT8912,CHRf < 31 ) , "L 1ST ANDO DIRETORIO DO DISCO ",8941 
,DNt ,8192 , :Z“0:F0RX=QT 0Cl<4)-l:ZNt“LEFTf<CTt<X),3) 

12353 IF<(X-Z-INT((X-Z)/40)»40< >0 )0RX-0 ) ANDDNt = ZNf THENPR INTR IGHTt < CTt < X ) , 12) ♦" 

", :NEXTXELSEPRINT8980,M0t, :G0SUB9002:PRINT8128, CSf ,8977, CHRt<30) ,8192,RIGHTt(C 
Tt< X), 12 ),:IFDNt=ZNtTHENNEXTELSEDNt“ZNt:PRINT 8941, DNf, 8208, "",:Z*X:NEXT 



catilogo no video, classificada por pro- 
grama, voce poderd voltar ao menu 
quando bem lhe aprouver, o que nao 
acontece na listagem de classifica^o por 
disco, onde somente ao final 6 que lhe 
serd permitida a volta ao menu. 

Normalmente, se voce tiver impresso- 
ra, a op^o cinco talvez ndo lhe seja de 
grande ajuda, jd que voce poderd consul- 
tar a listagem feita para localizar um de- 
terminado programa. Se voce ndo a pos- 
sui, no entanto, esta op^o ser4he-d de 
grande utilidade. Mas, em ambos os ca- 
sos, digamos que voce ndo saiba o nome 
completo do programa, ou se lembre 
apenas das duas ou tres primeiras letras, 
ou, quern sabe, por algum motivo voc 6 
queira saber quais os programas que co- 
mefam com uma determinada letra. A 
op^ao cinco 6 que lhe dd estas facilida- 
des, aldm da local lza^ao ser bastante rd- 
pida: voce mal entrou o nome do pro- 
grama e o numero do disquete jd lhe € 
fomecido. 

Agora: jd pensou no que voce vai sen- 
tir quando, ap 6 s um exaustivo trabalho 
de classificar 30 disquetes, houver um 
pique de luz, ou entdo se sua mulher, 
depois de cinco minutos chamando-o 
para almo 9 ar, resolver apertar o RESET 
de seu micro??? Bem, para prevenir es- 
tas situaifOes, voce pode salvar seu catd- 
logo vdrias vezes, voltando, em seguida, 
ao menu para continual suas labonosas 
atividades. Isto e o que lhe possibihta a 
op 9 ao seis. 0 arquivo Catalogo/TXT 
somente serd arquivado se ele tiver real- 
men te sido alterado; caso contrdrio, na- 
da ocorrerd. S 6 as op 96 es um, dois e tres 
6 que alteram o arquivo. 

0BSERVAC6ES finais 

Lembre-se de que o arquivo Catalo- 
go/TXT existente no disquete s 6 serd 
atualizado atraves das op 9 des seis e sete. 
Esta, ap 6 s a grava 9 ao dos dados, volta 
para o BASIC-Disco, encerrando as ativi- 
dades. Nunca encerre suas atividades te- 
clando BREAK ou RESET, pois seu ar- 
quivo ndo terd sido atualizado e todas as 
altera 90 es que porventura voce tenha 
realizado estardo perdidas. 

Tecle o programa tal qual estd na lis- 
tagem. Ndo o modifique, coloque todos 
os pingos nos is, sendo voce poderd ter 
sdrios problemas para conseguir rodd-lo. 



Lawrence F. King 6 programed or hi seis anos 
na Embratel, trabalhando principal mente com 
a linguagem Assembler no software do S/CRAM 
— Sistema Computarizado de RetransmissSo 
Automitica de Mensagens. 
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SB EKSSS^iaaSKr^lTS^SSRsrTttSSffiiUSBtMS:..-^.*.-.. 

1 <4>-C3(6> «QOSUB38400*LPRINT*GOT010010 «,o/,rDA»«A , 

13000 PR INT98V6 ,CHRS( 31 ) |812B,CSS j 8393, "ENT RE 0 NOME 00 PROGRAMA 

0 PROGRAM A ENCONTRA-SE MO DISCO . - , • ZP - ^20 « Z 1 - 1 2 « Z 1 *-Z2**:^ « 00SU B88 °2 * 

SSBBfaas 

SX^^msamsmT' 

14064 M IFR1-6IhENZP*-'"'»G0T010010ELSECL0SE«CLSiEN0 

™: - 

38201 0 F0RX"0T0C8<4^-1 • IF J“i0O0THENG0T0 3 8Z03ELSELSETD4“0Mt^DIKX) *PRIMT8480,CHRS< 

30) |D% r : J»USR7 ( VARPTR (Cl (0> ) > JNEXTXiRETURN 

38203 RIBSWA.CHRM3! ERRO ■» CAlflL00 ° NA ° EH S 

SES&SSfe'sa 

™! 8 i 9 «:«^!m t >-cI?0)Iilj-USR4<VARPTR<CH0)>>«IFJ-0THENG01038302ELSEIF<<X-INT( 
3B3 SJ ^tn^i^nTHFipRliTRIGHT* PN* «>♦- :G0T038301 .ELSEPRINT9976.M0*, »G0 

KS^RiSSS^SW 

38400 IF J^FNMPXICl > THENC31 7)*J-FNMPX(C1 > » J“FNMPX(C1 > 1 60SU838500* J“C3<7 ) » GOT 03840 
3W00 ‘^6*FNZPX<J Cl) <=PEEK( 16424 ^|^M2“zi-C2.LPR INI «LPR IMTSTRINGtCPEEK 

,^427^2 ~ T^OO eS « -,ZMi.LPRINT.LPRINTSTRIMGS(<PEEK<16427,-(38 + LEM<M* 



HiSisi 

,FNPNS(CTS<X>,Z1>|SZ-HNEXT 
38801 C2“C2>FNZPX< J,C1 ) iRETURN 



Exemplo de saida 



.ADVINHO/BAS 

ENGENHEI/BAS 

INSTRUC/SIM 

STARTREK/BAS 



BANCOS/BAS 

FLEXCATi/BAS 

JOCKEY 

TROCASIS/CMD 



A/cm 


47 A 


ACC3RT/CMD 


42A 


ACCESS 


05B 


ACCPi/CMD 


42A 


ACCb’u. CMD 


42A 


ACRE 


G/B 


ADP/PAT 


3i A 


ADGINHO/BAS 


G3B 


ALAGOAS 


U/B 


ALPHA/BAS 


42A 


ALGO/BAS 


05A 


AMAPA 


G7B 


ANDRE/DIF 


5iA 


ANDRE/GRF 


51 A 


ANIMAL 


08B 


APL/CMD 


47A 


ARMAGED/BAS 


42A 


ARMAGED/BAS 


45A 


ASYLUM/CMD 


04B 


ATOMOS 


GOB 






TECNOLOGIA 

EFICIENC1A 

SERIEDADE 

a servigo de sua ^ 
empresa c 



‘FI LI AD A A ASSESPRO.’ 



Este programa pode listar catdlogos classificados por disco ou por programa. 



2748845 



VOCE TEM UM MICRO? 
NOS TEMOS 

Aiprimc-nto 

DISKETTE S 1/4” E 8" 

FORMULARIO CONTlNUO 

FITA IMPRESSORA 

FITA K-7 CURTA DURACAO 

ETIQUETAS ADESIVAS 

PASTA P/FORMULARIOS 
80 E 132 COL. 

ARQUIVOS EM ACRlLICO, ® 
RACKS E PASTAS 
PARA DISKETTES. 

REBOBINAMOS QUALQUER FITA 
PRONTA ENTREGA 
QUALQUER QUANTIDADE 
GARANTIA E QUAUDADE. 



/uprimc_nto 

RUA VISCONDE DE PIRAJA SSO LOJA 202 
<021 > 274 8845 (021) 246J180 BIP 36X8 
IPANEMA RIO 1 0 1 • • 816-3344 BIP Sfl7A 
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Um a/goritmo e um circuito para a gravagao de memdrias do tipo PROM 
atravds do prdprio microcomputador 



Um me tod o facil 
de programar PROMs 



FeKcio Barbosa Monteiro 
Ce/so Henrique Ribeiro 



N o desenvolvimento de software 
para sistemas baseados em mi- 
croprocessadores, o resuJtado 
final de um desenvolvimento 
deve ser sempre transferido para algum 
tipo de PROM para uso posterior do sis- 
tema. Nestes casos, d preferivel transfe- 
nr o software desenvolvido diretamente 
das memorias do sistema de desenvolvi- 
mento para as PROMs, sem a necessida- 
de de escrever e ler cm um programador 
externo. 

0 circuito aqui apresentado foi ela- 
borado tendo por base um microcompu- 
tador desenvolvido no Laboratdrio de 
Microssistemas da EFE1 - Escola Fede- 
ral de Engenhana de Itajuba.a partir do 
microprocessador 6800. No entanto, ve- 
se claramente que ele pode ser interco- 
nectado a outros sistemas rrucrocompu- 
tadorcs. pois as hnhas utilizadas nesta 
interliga^ao sSo as_de dados, de endere- 
90 s, de leituia (R/W), de endere^o vdli- 
do (VMA), de sincronismo ( (j ) 2 ) e de 
RESET, linhas estas disponiveis em 
todos os microprocessadores. 

Foram utilizados Adaptadores de 
Interface de Penfdricos (PIA) 6821 para 
facilitar as opera^des de grava^ao e pos- 
terior verifica^ao. 

Para a temporiza^ao de grava^ao, 
optou-se pela utiliza^ao de um monoes- 
ttfvel externo (74LSI23) controlado por 
software, com a finalidade de evitar pro- 
blemas com as frequences de operafao 
dos diversos sistemas. 



0 programa requerido para o contro- 
le deste circuito de grava^ao/venfica^ao 
pode residir em um sistema monitor ou 
em alguma outra Area designada pelo 
usuino, uma vez que o mesmo e relocd- 
vel. 



HARDWARE 



A figura 1 mostra o circuito desen- 
volvido, no qual foi utilizada a memdria 
2716. A escolha deveu-se ao fato de sua 
simplicidadc (fonte unica para grava^o: 
♦25 V), sua capacidade (2 Kbytes), ta- 
manho de palavra (8 bits), seu amplo 
uso em sistemas com microprocessado- 
res, seu proccsso de apagamento pcla luz 
ultraviolcta, sua facil aquisn;aoe por exis- 
tirem vdnas memdrias de capacidades di- 
ferentes, pordm com as mesmas caracte- 
risticas de grava^o que a 2716 (2732, 
2758 etc), que podenam ser utilizadas 
tendo por base este mesmo circuito. 

Vejamos os outros componentes. Os 
integrados 74LS04, 74LS27 e 74LS42 
atuam como decodificadores de endere- 
90 s dos PlAs A e B, sendo que os ende- 
re 90 s de 8000H a 8003H referem-se ao 
PIA A e 8004H a 8007H ao PIA B. 

0 Cl 74LS20 tern a finalidade unica 
de habilitar o buffer no barramento de 
dados quando a UCP estd lendo uma 
mformacao proveniente deste circuito 
Oinha RE). 



O PIA A tern a finalidade de endere- 
9 ai as diversas posi 9 des de memona a 
serem gravadas ou verificadas. Isto 6 fei- 
to atraves da porta A (PA 0 at^ PA 7 ) e 
da porta B (PB 0 ate PB 7 ), o que deve 
ser levado em conta na programa 9 ao do 
PIA. 

0 PIA B tern cinco finalidades: 

- fornecer dados a serem gravados nos 
endere 90 s especificados pelo PIA A, 
atravds da sua porta B; 

- receber, atraves de sua porta B, os da- 
dos especificados pelo PIA A para serem 
verificados; 

- selecionar grava 9 ao ou venfica 9 ao de 
dados da memoria atravds da porta 
A (PAj ) (0 = venficar, 1 = gravar); 

- produzir o pulso de grava^o, dispa- 
rando, para tanto, o monoestdvel 
74LS123, atravds da linha PA 0 , que 
deve estar ajustado para um pulso m ini- 
mo de 2ms e maxi mo de 55 ms; 

- venficar o tdrmino do pulso de grava- 
9 &), utilizando, para isto, a linha PA 7 . 

Deve-se notar na figura 1 que a porta 
B do PIA A ainda dispde das linhas PB 3 
atd PB 7 , fato que possibilita expandir a 
mem 6 na a ser gravada para atd 16 bits 
de endere 90 (64 Kbytes de dados). 

Convdm salientar que a fonte de ali- 
menta 9 ao para grava 9 ao/verifica 9 ao 
(+ 25 V) s 6 deve ser ligada ao pino 21 
do Cl 2716 apos o sistema sofrer um 
RESET de dura 9 ao igual a pelo menos 
oito ciclos do sinal (J)^, por causa da 
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Figura 1-0 circuito de gravafdo /verified fdo. 



necessidade de se levar a linha PA 0 do 
P1A B ao nivel logico 0 antes de se im- 
ciar a grava^So. 

Aqui cabe ainda abrir urn pequeno 
paientescs para melhor explicar o uso da 
fonte de alimentagSo de 25 V. 



A FONTE DE 25V 



A memoria EPROM 2716 pode tanto 
scr gravada como lida (venficada) com o 
seu pino 21 ligado a uma fonte de 25± 1 
volt, com cor rente maxima de 30 mA. A 
diferen^a de uma condnjao para outra e 
realizada atravds do pino 20 (C),que de- 
ve ser colocado cm nivel alto (+5V) para 
grava^o e barxo (0V) para verifica^So. 
0 pino 21 deve ser conectado a +5V 
para operagao normal_ da memoria e, 
neste caso, o pino 20 (G) deve ser ligado 
a 0 volts. 

No nosso caso, que compreende ape- 
nas grava^o e vcnFica^So, optamos por 
deixar o pino 21 constantemente ligado 
a +25V e diferenciar entre gravai;aq_e 
verificagao atravds do pino 20 (G). 
Assim, a fonte de +25 V pode ser ligada 
e desligada atravds de uma chave, tendo- 
se (como j a foi dito) o cuidado de sd 
ligar a chave (fonte de +25V) apds a rea- 
lizaijao do RESET, por causa de o nivel 



16gico inicial no pino 20 (G) ser desco- 
nhecido, uma vez que este pino estd 
alimentado atravds de uma das saidas do 
PI A B (6821). Na figura 2 estd llustrado 
o funcionamento desta memdna. 

Assim sendo, d 16gico que se poderia 
utilizar o prdprio microproccssador para 
controlar a fonte de +25V, atravds do 
PIA e urn transistor ou SCR. 

A fonte de + 25±1V — 30 mA pode. 
devido as suas caracteristicas simples, 
ser facilmente construida com regulador 
de tensJo ajustdvel do tipo LM 317 
(vide pg. 175, Linear /Switchmode Vol- 
tage Regulator Handbook, Motorola). 



O SOFTWARE 



A figura 3 d o algoritmo necessano 
para a lnicializafio dos PIAs, para a gra- 
va<;ao e para a verifica^o, utilizando o 
circuito da figura 1. Neste algoritmo, as 
pos^des de memdrias RAMs utilizadas 
receberam as segumtes denomina 9 oes: 

• CONT. GRAV. - Contdm em com- 
plemento de dois o numero de vezes que 
se deseja que uma determinada posi^Io 
seja regravada quando apresentar erro. 
Em nosso progiama, foi utilizado o en- 
dere^o 0006H com urn numero de regra- 
va 96 es igual a 5. 



• END. GRAV. - Contdm o endere 90 
da posi 9 ao da EPROM a ser gravado/ve- 
rificado. Utilizamos os endere 90 s 0000H 
e 000 1H. 

• END. COP. - Contdm o endere 90 da 
posi 9 ao de memoria a ser copiada na 
EPROM. Utilizamos os endere 90 s 

000 2 H e 0003H. 

• END. FINC. - Contdm urn a mais 
que o endere 90 do liltimo conteudo a 
ser copiado. Foram utilizados os endere- 
90 s 0004H e 0005H. 

O programa apresentado em Assem- 
bler, ao final, foi descnvolvido a partir 
deste algoritmo e d prdprio para siste- 
mas baseados no microprocessador 
6800. Entretanto, a partir deste algorit- 
mo, pode-se facilmente 1 m pi an tar urn 
progiama para sistemas baseados em ou- 
tros microprocessadores. 

Para indica 9 ao de PRONTO ou de 
ERRO foi usada a sub-rotina MENSAG., 
do monitor do sistema de desenvolvi- 
mento. Esta sub-rotina simplesmente 
mostra em display a palavra formada 
pelos modelos de caracteres representa- 
dos pelos bytes que seguem a instru^o 
de chamada desta sub-rotina. Em seu 
lugar, pode-se usar qualquer outra sub- 
rotina para sinalizar estas duas condi- M 
9 des. * 
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um m£todo fAcil 




Figura 2 
- Algoritmo 
de funcionamento 
da memdria. 



Montagem e material necessario 



N So deve haver maiores dificuldades para a 
montagem, uma vez que a inter Uganda pi- 
no a pino dos components jd estd indicada na 
figura 1. Pode-se facilmente construir um 
impresso para isso at raids de desenvolvimento 
ou mesmo com a utilizacao de placas padroes. 
Alim disso, como opfdo em face do pequeno 
nume to de componentes envolvidos, a monta- 
gem em protoboard pode ser utilizada. 

0 material necessario i o seguinte: 
Circuitos integrados: 

- 74LS04 - 1 pefa, 

- 74LS20 - 1 pefa, 

- 74LS27 — 2 pefas; 

— 74LS42 - l pefa; 

- 74 LSI 23 - I pefa; 



- 6821 - 2 pefas: 

- 2716-7 pefa f memdria a ser gra va da). 
Capacitor: 

- 1 capacitor de poliister metalizado 
2,2\i Fx63 volts. 

Trimpot: 

- 7 Trimpot de 47 k ft . 

Soquete 

- 7 soquete de 24 pinos tipo zero Force 
textool. 

0 conector do circuito para o sistema de 
desenvolvimento deve serescolhido de acordo 
com as facilidades apresentadas pelo sistema 
do usudrio. 

Na figura 4 podemos ver o funcionamento 
desta memdria. 





NUMERO DO PINO 


HO DO 


9-11, 

13-17 

‘V°7» 


12 

,V SS» 


18 

<CE) 


20 

G 


21 


24 

(Vcc» 


Leitura 


Saida de 
Dado 


0 


V » 


V IL 


5V 


5V 


Saida deaabilitada 


Alta lap. 


0 


X 


V 1H _ 


5V 


5V 


Standby 


Alta lap. 


0 


V IH 


X 


5V 


5V 


Prograaucao 


Entrada de 
Dado 


0 


Pulso 

♦ 


V IH 


25V 


5V 


Verificar Proqrama<;ao 


Saida de 
Dado 


0 


V IL 


V IL 


25V 


5V 



Figura 4 



Celso Henrique Ribeiro e FeUcio Barbosa Monteiro sio engenheiros eletricistas/eletrdnicos e 
professores da Escola Federal de Engenharia de Itajubd nas Areas de Eletrdnica Digital e Micro- 
pro cessed ores. Alim disso, fornecem treinamento e consul tor ta a empresas nestas Areas, atravis 
da FUPAI — Fundapao de Pesquisa e Assessoramento A Industrie. 



0001 ‘INICIALIZAgAO PIAS* 


0002 








0003 0010 CE FF04 






LDX 


0004 0C 1 3 FF 8000 






STX 


0005 0016 FF 8002 






STX 


0006 0019 CE 0304 






LDX 


0007 001C FF 8004 






STX 


0008 








0009 ‘PREPARAR 


PROM 


PARA GRAVAR* 


0010 00 1 F 86 02 


NOVPOS 


LDA A 


0011 0021 B7 8004 






STA A 


0012 0024 86 FB 






LDA A 


0013 0026 97 06 






STA A 


0014 0028 86 00 






LDA A 


0015 002A B7 8007 






STA A 


0016 002D CE FF04 






LDX 


0017 0030 FF 8006 






STX 


0018 0033 B6 0000 






LDA A 


0019 0036 B7 8002 






STA A 


0020 0039 B6 0001 






LDA A 


0021 003C B7 8000 






STA A 


0022 








0023 ‘ATUALIZAF 


END . GRAV . • 


0024 00JP Ft 0000 






LDX 


0025 0042 08 






INX 


0026 0043 FF 0000 






STX 


0027 








0028 ‘VEBIFICAB 


FIM 


DE GRAV . • 


0029 0046 FF. 0002 






LDX 


0030 0049 BC 0004 






CPX ENDFINC 


0031 004C 26 0A 






BNE GRAVAR 


0032 004E BD FD8C 






JSR MENSAG. 


0033 0051 67 057E 






FCC 


0034 0054 76 0FFE 






FCC 


0035 0057 3E 






WAI 


0036 








0037 *GRAVAB 


E 


mJALIZAR END. COP. • 


0038 0058 A6 00 


GRAVAR 


LDA A 


0039 005A 08 






INX 


0040 005B FF 0002 






STX 


0041 005E B7 8006 






STA A 


0042 0061 86 03 


REGRAV 


LDA B 


0043 0063 P7 8004 






STA B 


0044 0066 C6 70 






LDA B 


0045 0068 5A 


TEMPO 


DEC B 


0046 0069 26 FD 






BNE TEMPO 


0047 006B F6 8004 


FIMPUL 


LDA B 


0048 006E 28 FB 






BMI FIMPUL 


0049 








0050 •PREPARAR 


PARA 


VERIFICAgAO* 


0051 0070 C6 00 






LDA B 


0052 0072 F7 8007 






STA B 


0053 0075 CE 0004 






LDX 


0054 0078 FF 8006 






STX 


0055 007B C6 00 






LDA B 


0056 007D F7 8004 






STA B 


0057 








0058 ‘VERIFICAR 


E REGRAVAR* 


0059 0080 F6 8006 






LDA B 


0060 0083 1 1 






CBA 


0061 0084 27 99 








0062 0086 C6 02 






LDA B 


0063 0088 F7 8004 






STA B 


0064 008B C6 00 






LDA B 


0065 008D F7 8000 






STA B 


0066 0090 CE FF04 






LDX 


0067 0093 FF 8006 






STX 


0068 








0069 ‘VERIFICAR 


FIM 


DE REGRAV.* 


0070 0096 7C 0006 






INC CONTGRAV 


0071 0099 26 C3 






BNE REGRAV 


0072 009B B7 FD8C 






JSR MENSAG 


0073 009E 4F 0505 






FCC 


0074 00A1 FE 






FCC 


0075 00A2 3E 






WAI 



Figura 3 - Programa Assembler para 
inicializafdo das PIAs. 
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EQUIPAMENTOS 

• Vendo micro DGT-100, 16K, 
interface, impressora, cabo para 
interface, com video e gravador. 
Tel: (021) 273-1745, falar com 
Jair. 

• Vendo esquema eldtrico do* 
micro*: TRS-80 I, TRS-80 Color 
Computer, Apple II Plu*. Descri- 
pSo do hardware do* me* mo*, edi- 
tor As*embler para JR Sysdata e 
D-8000. em fita. Tratar com En- 
rique Ferri, Rua Fiapao da Saiide, 
128/103, SSo Paulo, CEP 04144, 
SP, tel: 579-1354, & noite. 

• Radioamador - Vendo interface 
p^ra decodif icapao de CW para o* 
micro* da linha Sinclair. Tratar 
com PY2-EMI, Renato Strau**, 
Rua Cardoso de Almeida, 654/32, 
CEP 05013. SSo Paulo, SP. 

SOFTWARE 

• Vendo ou troco programa* pa- 
ra a Ibgica Sinclair. Acervo com 
mai* de 150 programa*. Tratar 
com Wilton Batista, Cx. Postal 
2559, Santo*. CEP 11 100, SP. 

• Pticologia — programa* espe- 
cializados para DGT-100 e CP-500 
JS disponfveis com alguns testes 
de personal idade e diverse* para 
aplicapdes usuais em dificuldades 
escolares infantis. Outras oppoes, 
sob encomenda. Con tat os com 
Cleusa de Carvalho Dalton, Centro 
Clfnico do Lago, Q09 Bl E, SI 
211, CEP 71600. Brasilia - DF. 
Tel. (061)2480482. 



• Vendo uma fita cassete com 
pequeno manual explicativo con- 
tendo dez programa* de 1 k de 
memdria, todos de minha autoria, 
do* quai* sete sSo jogos. Podem 
ser carregados em qualquer equi- 
pamento da linha Sinclair, com ou 
sem slow. Tratar com Marcos, 
pelo tel: (Oil) 63-3324, SSo 
Paulo. 

• Troco programas para o TK82- 
C, jogo* e utilitSrios. Desejo tarn- 
bSm entrar em contato com pe*-» 
soas da regiSo de Jundiaf para for- 
mer um clube de computapao. 
Cartas para Edson Bueno da Silva, 
Av. Manuel Ponte* Junior, 295, 
Vila Rami, Jundiaf, SSo Paulo, 
CEP 13200. 

• Vendo programa* para Apple, 
entre eles Visicalc e Magic Win- 
dow. Tratar com Francisco pelo 
tel: (Oil) 832-5131 (SSo Paulo). 

e Troco programa* para CP. TK. 
NE em fita cassete. Jogos anima- 
dos, aplicapoes comerciais, nacio- 
nai* e importados. Tratar com 
Raul Horter na Av. Brasil, 3507, 
Cx. Postal 46, Campo Bom, RS. 
CEP 93700. 

e Vendo programas para micros 
compatfveis com o Sinclair, princi- 
palmente jogos, como MAZOGS, 
FUNGALOIDES E INVASION 
FORCE. Aceito trocas. Interessa- 
dos escrevam para Luiz Carlos 
Fernandes, Rua Atos Damasceno, 
310, Vila Sta. Catatina, SSo Paulo, 
CEP 04372. 



a Troco ou vendo programas de 
jogos do CP-300/500. Tenho jo- 
gos como Galaxi, Cosmic, Meteor, 
Scarf, Attack. Pinball. Roboatak, 
Xadrez e outros, ao prepo de 
Cr$ 6 mil por unidade, jS com a 
fita. Tratar com Roberto Vaz 
Piesco na Rua AmSIia Correa Fon- 
tes GuimarSes, 152, Caxingui.SSo 
Paulo, SP, CEP 05617. 

DIVERSOS 

# Vende-se cadastro de firmas 
que possuem computador e outro 
de pessoas ligadas d Area de Infor- 
mStica. Cx. Postal 7459, CEP 
01000 . 

e Expande-se hardware de DGT- 
100 e TK-85, tornando-os aplicA- 
veis ao uso cientffico e tecnoldgi- 
co. Nahal - Cx. Postal 1114717 
-Ipanema - RJ - 22412. 

e Compro n9 9 de MICRO SIS- 
TEMAS. Tratar com Claudius, 
Rua Santos Dumont, 825, Petrd- 
polis, RJ, tel: (0242) 42-1175. 

e Compro os exemplares de 
MICRO SISTEMAS do n° 1 ao 
nQ 16 (ou qualquer um deles); 
pago prepo atual. Os interessados 
devem se comunicar com Ricardo 
Cardoso pelo (0132) 31-6855, 
deixando recado e telefone. 

e Vendo o livro: Fundamentos 
do CMS — Convernational Moni- 
tor Systems. Prepo a combinar. 
JosS Faria, tel: (021) 260-9034 
(ap6s as 21.00h). 




e A Coordenadoria de Divulga- 
pSo Cientffica e Cultural — CDCC, 
do Instituto de Ffsica e Qufmica 
de SSo Carlos, Universidade de 
SSo Paulo, comunica a formapSo 
do seu Clube de ComputapSo, que 
atua principalmente na Area edu- 
cacional e cientffica e deseja en- 
trar em contato com outros clu- 
bes. O enderepo para contato* A 
Cx. Postal 369. CEP 13560, SSo 
Carlos, SSo Paulo, telex 165122 — 
FQSC. 

e Compro um manual de instru- 
pfies para o programa PROFILE 
III (c. 1982 by Small Computer 
Company). Lucio A. Castagno, 
Rua Gal. Os6rio, 1585, tel: 23- 
0555 - CEP 96100. Pelotas - RS. 

e Gostaria de obter maiores es- 
clarecimentos sobre o compilador 
FORTH para Z80, ou com o au- 
tor deste artigo publicado em MS 
22 e 23, ou com leitores interes- 
sados na matAria. Marcelo Miran- 
da, SON, 406 B, apto. 205, Bra- 
sflia, DF. 70000. 

• Primeiro Clube Nacional do 
VX ESPECTRO: troca de progra- 
mas, troca de informapSes, trans- 
codificapoes para sistema brasilei- 
ro. AndrA Luiz Behrensdorf Der- 
rik, Rua Senador Vergueiro, 198/ 
101, tel: 551-1828, Flamengo, 
CEP 22230, Rio de Janeiro. 

e Gostaria de trocar idAias com 
possuidores da HP-86/87 para in- 
tercambio de informapQes. Tel.: 
247-9391, Joel, RJ. 



/Mer WIS x 


I 


MS N? 


napAgina 


ONDESE L£ 




25 


1 18, na linha 
830 da listagem 

Ajuste 


830 LET B = (N * SXY - 
SX * SY) (N * SX2 
- (SX) * * 2) 


830 LET B = (N * SXY - 
SX * SY) / (N * S 
X2 - (SX) * * 2) 


Como no n9 27 as tr£s ultimas corregSes da Mensagem de Erro foram trocadas, publicamos a seguir, para evitar qualquer 
duvida, a forma correta: 


25 


46, no 59 
parSgrafo, 
linhas 4 e 5 


POKE 16389 , 120 e 
NEWLINE 


POKE 16389,120 
NEWLINE NEW NEWLINE 


25 


100, na linha 
5016 da listagem 
Super Star T rek 


5016 LET Q3-Q1 


5016 LET Q3=Q1 


25 


101, a linha 8500 
da listagem Super 
Star Trek foi 
numerada erradamente 


6500 GOSUB TR 


8500 GOSUB TR 
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Linha Sinclair 
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Se voce tern pequenas rotinas e programas utilitdrios real- 
mente 6teis tomando poeira em seus disquetes ou fitas casse- 
te, antecipe-se aos piratas e trate de divulga-los. Envie-os pa- 
ra a REDA^AO DA MICRO SISTEMAS - SE^AO DICAS: 
Rua Visconde Silva, nQ 25, Botafogo, RIO DE JANEIRO-RJ, 
CEP 22281. 

NSo se esque^a de dizer para qual equipamento foram de- 
senvolvidos. Desta forma, sua descoberta podera ser util para 
muitos e muitos, em vez de desmagnetizar-se com o tempo 
em suas fitas e disquetes... 



a Sinclair 



Nevoa no video 

Jogue uma n£voa no seu video, e atrapalhe a lei- 
tura de seus programas pelos “espiOes”, com este pro- 
grama em Assembler: 

16514 3E65 ED47C9 

Para utilizd-lo, digite RAND USR 16514, mas an- 
tes 6 preciso dar um POKE na posi 9 ao 16515, sendo 
que com POKE 16515,101 voce cria a ndvoa, e com 
POKE 1651530 a ndvoa 6 desfeita. 



Paulo Henrique J. Abranches-MG 



Moldura na tela 

Desenhe uma moldura na tela dos seus programas 
com esta rotina em linguagem de maquina: 

16514 3E XX 2A 0C 40 06 20 23 

16522 77 10 PC 06 14 23 23 77 

16530 11 IP 00 19 77 10 P6 23 

16538 06 20 23 77 10 PC C9 

0 endere 90 16515 (XX) cont^m o c6digo do career 
que formard a moldura. E para emoldurar o video, use 
RAND USR 16514, mas lembre-se de nffo escrever nada 
nas posi^des da moldura. 



Paulo Henrique J. Abranches-MG 



Linha Sinclair 



Um INPUT diferente 

Use no seu programa um INPUT que jd vem com o 
cursor 0 para entrar com dados no modo Graphics: 

100 POKE 16390,116 
110 INPUT AS 

Simples, n£o? £ que o enderefo 16390 £ a varidvel 
do sistema chamada MODO e o valor 116 6 o cddigo pa- 
ra o cursor Graphics. 



Paulo Henrique J. Abranches-MG 



Linha TRS 80 



Conversao binario- decimal direta 

Converter um numero binario de oito bits para um 
numero decimal i uma rotina bem simples. Mas, e se 
quisermos ler o resultado direto do teclado? Com esta 
dica, isto tamWm serd muito f£cfl. Vamos supor o nu- 
mero (1001) 2 : se o ajustarmos em oito bits, teremos: 



valor — ► 0 0 0 


0 10 0 


numero do bit — ► 7 6 5 


4 3 2 1 



At6 af, nada de novo. Entre entfo com esta rotina: 

10 PRINT @ 532, PEEK (14480); ” ” : GOTO 10 

e logo depois digite estes dois comandos: CLS: RUN. 
Agora 6 s6 apertar os niimeros dos bits setados (no nos- 
so exemplo, 3 e 0), que voce ver i no meio da tela o 
resultado convertido. 



He!v6cio C. Ribeiro Netto-RJ 




dB/ MICRO 

AV. ALFONSO BOVERO 218 
SAO PAULO S.P. 
BRASIL 

TEL.: 10111263 0711 



HOTLINE dB/FONE 
PROGRAMA dB/I 
PROGRAMA dB/II 
JORNAL DO USUARIO dB/Qube 
TREINAMENTO BASICO dB/Treino B 
TREINAMENTO AVANQADO dB/Treino A 
TREINAMENTO EM DISCO dB/Treino D 
SEMINARIOS PARA EXECUTIVOS dB/seminirios 
APOIO A AUTORES INDEPENDENTES dB/Aplicativos 



SU PORTE 
TOTAL 
AOS 
USUARIOS 
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SCROLL e CLS parciais 

Se voce quer conservar as NT linhas do topo do video in- 
tactas e realizar, respectivamente, SCROLL ou CLS nas res- 
tantes, basta determinar o valor de NT, entrar no pequeno 
trecho em BASIC (que apresentamos a seguir) para ajustes 
nas constantes da parte em Assembler, e utilizar em seu pro- 
grama principal, conforme descrevemos: 



BASIC: 



1 REM 123 ... (30 caracteres) ... 



Linha TRS Color 



Aumente a memoria 

Se voce quiser aumentar a memdria dispomvel do 
seu Color, uma boa solu^o 6 eliminar alguns recursos 
que voce nio iri utilizar. Assim, para eliminar as pagi- 
nas grificas, digite : 

POKE 26,1: NEW 

Para poder ocupar a ire a reservada aos strings, e 
ganhar com is so mais memdria, use o comando 
CLEAR 0. E se voce utilizar disco no seu equipamen- 
to, pode preen cher tamtam a drea de buffer elimi- 
nando-a com: 

FILES 0,0. 



Marcel Tarrisse-RJ 



999 LET NT= (valor entre 0 e 20; op<;ao: 
999 INPUT NT) 

1000 LET E- 165 18 
1010 LET K 1 ■ 3 3 * NT 
1020 GOSUB 1100 
1030 LET E* 1 6528 
1040 LET K1-726-K1 
1050 GOSUB 1100 
1060 POKE 16535, 2 4 -NT 
1070 ... 



1100 POKE E,256*(Kl/256-INT (Kl/256)) 

1110 POKE E+ 1 , INT (Kl/256) 

1120 RETURN 

• Assembler (entre usando o Monitor Assembler de MS 
n9 23, pagina 10): 

16514 2A 0C 40 11 00 00 19 E5 11 21 

16524 00 19 D1 01 D6 02 ED B0 C9 00 

16534 06 18 CD 2C 0A C9 00 00 00 00 

E para chamar estas sub-rotinas, digite : 

SCROLL: RAND USR 16514 
CLS: RAND USR 16534 

Observacio: as sub-rotinas, do modo como se encontram 
acima, funcionam como SCROLL e CLS normals (condi- 
tio equivalente a NT= 0). 



Clodoveu A. Davis Jr. -MG 



Linha TRS Color 



Bloqueando a listagem 

Para evitar que os “piratas” tenham acesso i lista- 
gem do seu programa, bloqueie a listagem digitando: 

POKE 383,158 

E depois que os “olheiros” forem embora, para 
voltar ao normal basta teclar : 



POKE 393,0 



Marcel Tarrisse-RJ 



Linha TRS-80 



Inicializar sem data 

Um meio ripido, fdcil e eficiente de evitar forne- 
cer data e hora nas imcializatdes do Sistema Operacio- 
nal 6, assim que a data for pedida, apertar novamente a 
tecla RESET do micro. Assim, o Sistema Operational 
seri inicializado sem problema. 



Luiz Gonzaga de Alvarenga-GO 



Diga 

Mestre 



Linha TRS-80 



Para alterar a mensagem do DOS500 Ativo, no sistema operacional do seu CP-500, para Diga 
Mestre, experimente esta seqtancia de PATCHs: 

PATCH *1 ( ADD=509C , FIND=444F53 , CHG=446967 ) ENTER 

PATCH *1 ( ADD=509F , FIND=353030 , CHG=6 1 204D ) ENTER 

PATCH *1 (ADD=50A2,FIND=204174,CHG=657374) ENTER 

PATCH *1 (ADD=50A5,FIND=69766F,CHG=726520) ENTER 



PATCH *1 



ENTER 



Nio se esqueta, entretanto, de experimentar esta seqiiencia em uma c6pia do DOS. E se voce 
quiser colocar qualquer mensagem no lugar do DOS500 Ativo, desde que nio ultrapasse 12 ca- 
racteres, use nos CHG a representatio hexadecimal dos caracteres desejados, de acordo com a 
tabela das piginas 159/161 do Manual. 



Carlos Lacerda Lopes-MG 
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Por partes, voce pod era obter os valores necessarios para a construgao 
de lajes, atravds deste programa para os micros da linha TRS-80 mode/o III 



Calculo dos esforcos 
e armadura de lajes 

Osvaldo Scorcio Pereira 



O programa que ora apresenta- 
mos efetua o cdlculo doses- 
forsos em lajes, momentos e 
distributed de cargas para 
as vigas adjacentes pelo Metodo da 
Ruptura (o metodo mais economico 



da atualidade), calculando ainda a ar- 
madura de lajes no estado ultimo. 

Foi desenvolvido em BASIC para os 
micros compativeis com o TRS-80 mo- 
delo III e e composto de quatro sub- 
programas que devem ser escolhidos 



pelo usuario assim que, no video, apa- 
re 9 a a seguinte mensagem: * * * MO- 
MENTO (M), CORRECAO (C), CAR- 
GA (G) OU ARMADURA (A) * * * 
Para selecionar o programa deseja- 
do, basta pressionar a tecla indicada 
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entre parenteses. 0 primeiro (MO- 
MENTO (M))calcula os momentos po- 
sitivos e negativos da laje; pressionan- 
do (M), o programa pedird, na seguin- 
te ordem: 

• Q = ? - carga distribuida em qui- 
lograma-for 9 a por metro quadrado 

• Lx = ? - menor vSo da laje em me- 
tros 

• Ly = ? - o outro vao em metros 

coeficientes 
que deterrrunam 
o grau de 
engastamento 
e posi^So dos 
engastes (ver 
figura 1 ) 

Feito isso, voce obterd os valores 
dos momentos negativos XI, X2, Y1 
e Y2, assim como dos momentos posi- 
tives Mx e My, todos em metro qui- 
lograma-for^a por metro. 

Ao tdrmino do equilibno dos mo- 
mentos negativos, micie o programa no- 
vamente e selecione o de CORRECAO 
(C), o qual corrige os momentos positi- 
ves Mx e My em fungao dos seus novos 
momentos negativos. Pressionando (C), 
o programa pedird, na seguinte ordem: 

• Q =? - carga distribuida em quilogra- 
ma-for 9 a por metro quadrado 

• Lx - ? — o outro vd'o em metros 










il/Xl = ? 
i2/X2 = ? 
jl/Yl = ? 
j 2 /Y 2 = ? 






os respectivos 
valores dos seus 
novos momentos 
negativos, em metro 
quilograma-for 9 a 
por metro, segundo 
o desenho da figura 2 




A seguir, voce terd os novos valores 
dos momentos positivos Mx e My, em 
metro quilograma-for 9 a por metro. 

Inicializando o programa mats uma 
vez, selecione o terceiro (CARGA(G)), 
que calcula as cargas que serffo trans- 
mitidas para as vigas adjacentes as la- 
jes. Pressionando (G), o programa pe- 
dira, na seguinte ordem: 

• Q = ? - carga distribuida em qui- 
lograma-for 9 a por metro quadrado 

• Lx = ? — nesse caso, o vdo mais en- 
gastado ou o menor vdo, de acordo 
com os casos de MARCUS, em metros 

• Ly = ? - o vdo na outra dire^o em 
metros 

• Caso: ? - o numero do caso segun- 
do MARCUS: 1,2, 3, 4, Sou 6 

0 computador fomecerd o valor da 
carga distribuida sobre as vigas RX1, 
RX2, RY1 e RY2 em quilograma-for- 
9 a por metro. Aten 9 do: em casos de 



vdos apoio-engaste, ou seja, apoio de 
um lado e engaste de outro, RX1 e 
RY1 serao sempre a carga do lado do 
apoio (ver esquema de distribu^Sb na 
figura 3). 

Finalizando, o quarto e ultimo sub- 
programa (ARM ADURA (A)) calcula a 
armadura necessdria para combater o 
momento existente na laje. Pressionan- 
do (A), o programa indicard : 

ACOB 

FCK = 1 50 FYK = 5000 

DESEJA MUDAR AS CONDICOES 
INICIAIS: (S) OU (N) 

Isto significa o seguinte: existem 
conduces preestabelecidas, oondi^es 
estas que sdo:FCK = 1 50 quilogramas- 
for 9 a por centi metro quadrado e 890 
CA-50B. Se as conduces de sua laje 
forem as mesmas, pressione (N) e 
prossiga; caso contrdrio, pressione (S) 





Laje/BAS 


i REH"LAJE/BAS" 




2 CLS 




3 CLEAR 




5 PRINT 30, MOHENTO (H). CORRECAO (C), CARGA (G) ou ARMADURA (A) «w" 


10 LETM-INKEYI 




ii IFU1='"THENG0T010 




13 IFWl="A"THENG0T01320 




14 CLS 




25 LETV=.i5 




30 PRINT3256," 


";3256,"«="; 


35 INPUTQ 




38 PRINT3640," 


V "," ";3768," 


" ; 3800," 




40 PRINT3276," 


";3276,"Lx="; 


45 INPUTX 




50 PRINT3296," 


"•3296, "Ly="; 


55 INPUTY 




65 I F W="G"THENG0 T 0300 




70 PRINT3384," 


";3384,"il/Xi="; 


75 INPUTA 




80 PRINT3416," 


";3416,"i2/X2="; 


85 INPUTB 




90 PRINT3512," 


";3512 r "jl/Yi="; 


95 INPUTC 




100 PRINT3544," 


";3544,"j2/Y2="; 


105 INPUTD 




115 LETK=(X/Y)o2 




120 LETE=X-V*X 




125 LETF=Y-V«X 




130 LETN=2»<F*K*E) 




135 LET«0=«*X62/( 12*K/< 3«Y-X) ) 


140 IFy5="C"THENG0T0165 




145 LETA=A*M0 
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CALCULO DOS ESFORQOS E ARMADURA DE LAJES 



RY2 




Figura 3 

e entre oom os respectivos dados da 
sua laje. Logo cm seguida, o progra- 
ma pedird: 

• d = ? — altura util da laje em me- 
tros 

• M = ? — momento em metro quilo- 
grama-for^a por metro 

Aparecerd na tela o valor de AS, a 
drea da se$So de ferro em centimetros 
e, ao lado, o seguinte: 

# 5,0 - C... # 4,0 - C... 

# 63 -C... # 5,0 -C... 

# 10 - C... # 63 - C... 

#12 -C... #10 -C... 

A esquerda, as bitolas com os res- 
pectivos espa^amentos necessanos para 
atender o seu AS, para os afos CA-24, 
CA-25, CA-32, CA40 ou CA-50. A di- 
.reita, o mesmo para os a^os CA-60. 
Esclarecendo: se seu afo for CA-24, 
CA-25, CA-32, CA-40 ou CA-50, serd 
impressa no video a tabela da esquer- 
da; se for o CA-60, serd impressa a ta- 
bela da direita. Caso a altura imposta 
ndo suporte o momento, serd impressa 
a mensagem: ALTURA INSUFI- 

CIENTE *** £ ndo esqueca: ap6s ca- 
da entrada de dados pressione ENTER. 

Nota: Este programa foi elaborado 
a partir das teorias dos professores 
Aderson Moreira da Rocha e Adolpho 
Polillo. 



Osvaldo Scortio Pereira 6 engenheiro civil 
autdnomo, trabalha com dicuio estruturai 
hd guatro anos a atualmente presta servigos 
para a Forma Engenharia L tda., no Rio de 
Janeiro. 
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150 LETB=B*H0 
155 LETC=C*K*H0 
160 LETD=D*K#«0 

165 LETMX=N0-( ( (A+B )*Y+(C*D)*X)/N) 

175 IFW5 =/, C / 'THENG0T0185 

180 PRINT3640,''Xl=";INT(A*.5),*X2='';INT(B+.5),*Yl='';INT(O.5),"Y2=*; 
INKD+.5) 

185 PR INT9768 , "Hx 2 " • INT ( MX* . 5 ) ; 3800 , "My =" • INT ( K #HX+ , 5 ) 

190 G0T025 
200 LETKY=1/(2*L) 

205 LETKX=i-KY 
210 G0SUB1240 
215 GOTO 1280 
300 PRINT3384/CAS0!*; 

305 INPUTN 
320 LETL=Y/X 

325 ONNGOT020G,400,600,800, 1000, 1200 
400 IFL<=.8THENG0T0425 
405 LET(CY=1/(2.5*L) 

410 LETKX=i-KY 
415 G0SU61260 
420 G0T01280 
425 IETKX=.625*L 
430 LETKY=i-KX 
435 G0T0415 
600 LETKY=i/(2»L) 

605 LETKX=i-KY 
610 G0SU81260 
615 G0T013O0 

800 IFL< =. 667THENG0T0820 
805 LETKY=i/(3*L) 

BIO G0TC205 
820 LETKX=.75#L 
825 LETKY=i-KX 
830 60T0210 

1000 IFL<= . 833THCNG0T01025 
1005 LETKY=1/(2.4*L) 

1010 LETKX=i-KY 
1015 G0SUB1240 
1020 GOTO 1300 
1025 LETKX=.6*L 
1030 LETKY=i-KX 
1040 G0T01015 
1200 G0T0200 

1240 PRINT3640/RXl='.INT(KX«8«X/2+.5)/RX2= / ';IHT(KX*«*X/2+.5), 

1250 RETURN 

1260 PRINT3640/ / RXl^.INT(KX«e*X*.4+.5)/RX2=";INT(KX*8#X».6+.5), 

1270 RETURN 

1280 PRINT"RYi=*;INT(KY«8#Y/2+.5),"RY2 s *;INT(KY*Q*Y/2+.5) 

1290 G0T025 

1300 PRINrRYl=".INT(KY»Q«Y#.4+.5),' , RY2=".INT(KY#««Yf.6+.5) 

1310 G0T025 

1320 as 

1325 L£7M=*r 
1330 LETFCK=150 
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1340 LETFYK=5000 
1345 PRINT30/ 

n " 

1350 PRINT30/AC0 B";964 /r TO=150 /, ;a96 r / 'FYK=5000' , ';8i2B f v OESEJA MUDAR AS 
CONDI COES INICIAIS: <S) ou (N)* 

1360 LETBS=INKEY1 
1370 IFBS='"'THENG0T01360 
1378 PRINT3448/ 

1380 PRMT312B/ 

1390 I FB f =*N"THENGOT 0 1 480 

1400 PRINT30/ *;364 f * *;396/ 

1410 PRINT30/AC0 A ou ACO B:*; 

1420 INPUTA1 

1430 PRINT364,"FCK=*; 

1440 INPUTFCK 
1450 PRINT396 f *FYK=*; 

1460 INPUTFYK 

148C LETFCD=FCK « 1 0000 71.4 

1490 LETFYD=FYK/1.15 

1500 PRINT3256," *;3256/d =*; 

1510 INPUTD 

1530 PRINT3384/ *;3384/h=*; 

1550 INPUTH 

1570 PRINT34Q4/ *;3424/ ',-£52/ 

*•3680/ **3808/ 

1580 LETND=H*i,4 
1590 LETNI=HD/(D52*FCD) 

1600 LETEYD=FYD/2100+2 

1610 IFAS= /, A"THENLETEYD=FYD/210G 

1620 LETHL=(2. 38/(3. 5*EYD))*( 1-1. 4/(3. 5+EYD)) 

1630 IFHDMLTHENG0T01730 

1640 LETZ=l-.2*(2.5-S8R(6.25-14.706*hI)) 

1650 LETAS=«D/(Z*D*FYD) 

1660 PRINT34Q4/AS=";(INT(AS*i00+.5))/100 
1665 I FFYD ) 5000THENG0 TO 1 70G 
1670 LETK0=(INT((18/AS)ti0+.5))/10 
1675 LETU0=(INT((32/AS)*10+.5))/10 
1680 LET Y0= ( INT ( ( 71 /AS ) «10* . 5 ) ) /10 
1685 LETZ0= ( INT ( ( 127/AS ) * 10+ . 5 ) ) /10 
1690 PRINT3424/«5 ? 0-C.*;KO;3552 f "R6 f 3-C.*;WO;3680/R10 
-C.*;Y0;3808/#12 -C.*;ZO 
1695 60T01530 

1700 LETKO=( INK ( 12.6/AS)«10+.5) )/10 
1705 LETUO=( INT ( ( 18/AS)»10+.5) )/10 
1710 LETY0=(INT((32/AS)«10+.5))/10 
1715 LETZ0=(INT((7i/AS)ti0*.5)>/10 
1720 PRINT3424/M,0-C.*;K0-3552/«5 f 0-C.*;U0;368O l 
"R6,3-C.*;Y0;3808 r w li0 -C.'jZO 
1725 G0T01530 

1730 PRINT3448/*** ALTURA INSUFICIENTE 
1740 RUN 1325 

1750 REM* PROGRAM ELA80RAD0 POR: 

1760 REH* OSVALDO SCORCIO PEREIRA 

1770 REM* Engenheiro Civil - CREAs 51.593-" 

1780 REH" DIREITOS AUTORAIS RESERVADOS 

1790 END 
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Este programs permite utilizar o Processo de Marcus na HP-41 C para 
o cd/culo de va tores ligados a area de Engenharia Civil 



Lajes armadas em cruz 

Ce/so de Arruda Albuquerque 



E ste programa visa ao cdlculo de 
lajes armadas em cruz pelo Pro- 
cesso de Marcus nas calculadoras 
HP-4 1C, fornecendo os momen- 
tos miximos positives nas duas dire^es 
(Mx e My), os momentos negativos mi- 
ximos nas duas dire^es (Ny e Nx) e as 
rea^Ces de apoio em cada bordo (Rx, , 
Rx 2 , Ry i e Ry 2 ). A configura^o mfni- 
ma exigida 6 de um mddulo de mem 6 - 
riae SIZE ± 19. 

0 programa exibe as unidades a se- 
rem utilizadas (kgf e m) e exige o co- 
nhedmento minimo da Convengao de 
Marcus, ou seja: Lx = dire^o cortada 
pelo maior numero de engastes ou me- 
nor v3o (quando o numero de engastes 
for o mesmo nas duas dire^es). Os ca- 
ses de engastamento vSo de 1 a 6 . 

A entrada de dados nSo oferece difi- 
culdade, pois o programa pede somente 
quatro (Ly, Lx, P e CASO), os quais se- 
rffo introduzidos quando solicitados. A 
cada dado introduzido, deve ser pressio- 
nada a tecla R/S. Quando a mi quin a 
emitir o sinal sonoro, estard pronta para 
apresentar os resultados nas seguintes 
sub-rotinas dire tas : 

• Mx - tecla A 
• My - tecla B 




Figura 1 



• Nx - tecla C 

• Ny - tecla D 

• Rx, e Rx 2 - tecla F 

• Ry, e Ry 2 - tecla G 

Quando pressionadas as teclasF ouG, 
aparecer i no visor Rx, (F) ou Ry , (G). 
Pira obter Rx 2 ou Ry 2 , basta teclar R/S. 

Querendo a edi^So dos dados intro- 
duzidos, aperte a tecla E. Se verificar 
que houve erro n a int roduffi), utilize a 
tecla amarela (SHIFT) e a tecla A que o 
programa pediri uma nova introdu^o 
de dados. 

Na figura 1, temos os seis possfveis 
casos de engastamento e, na figura 2 , 
dois exemplos de calculo, a partir dos 
casos 1 e 2. Observe que, no exemplo 2, 
Lx = 6,0m porque 6 cortado por um en- 
gaste, enquanto que Ly = 4,0m n£o 6 
cortado. 

Um ultimo detalhe : antes de iniciar a 
execuffo do programa, assegure-se de 




Figura 2 



nffo haver assignado qualquer fun 950 ou 
programa nas sub-rotinas utilizadas, pois 
o assignamento do usuirio tern priori- 
dade sobre o programa em execufffo. 



Cel to de Arruda Albuquerque 4 formado em 
Engenharia Civil pela Universidade Gama Fi- 
Iho e trabalha na BRASCEP Engenharia Ltda. 
desde margo de 1981 na Area de projeto e c4l- 
culo. Poaui uma HP-41CV, a quel utilize fo- 
ments para o cAlculo de probbmas relaciona- 
dos 4 sua profitsSo 



8ULBL -HQRCUS* 
02 "WIT*KG/M" 
qviEk 


14 -LX=7- 

15 PROMPT 


26 PROMPT 

27 STO 84 


Marcus 


56 STO 88 

57 STO 09 


68 RCL If 

69 5 


88 STO 06 
81 14,22 


04 PSE 
p*ui gi a 


18 STO 80 
IP / 


28 GTO IMP 0< 
294LBL 01 


38 STO 07 


47 ♦ 


58 SF 01 

59 SF 03 


70 * 

71 EHTERt 


82 STO- 87 
8? 12 


VV bVU V 

a 


18 Xt2 


30 8 


39 STO 88 


48 / 


68 GTO 14 


72 EHTERt 


84 STO 88 


vv V 

07 STO 08 


19 STO 01 


31 STO 86 


40 SF 01 


49 STO 02 


61 ♦LBL 64 


73 l 


85 3 


M. STO 09 


20 Xt2 


32 STO 07 


41 RCL 10 


58 GTO 12 


62 24 


74 ♦ 


86 STO 09 


VV Vlw V 7 

09 TF 01 


21 STO 10 


33 GTO 14 


42 5 


5! ♦LBL 03 


63 STO 06 


75 / 


87 SF 03 


V I VI v X 

10 CF 03 

11 'LY=7- 


22 ’P=?’ 


34#L0L 02 


43 ♦ 


52 14,22 


64 8 


76 STO 62 


88 RCL 10 


23 PROMPT 


35 14,22 


44 EHTEPf 


53 STO 06 


65 STO 67 


77 GTO 12 


39 2 


12 PROMPT 


24 STO 03 


36 STO 06 


45 EHTERt 


54 STO 07 


66- 12 


78*LBL 05 


90 * 


13 STO 17 


25 "CftS07‘ 


.37 8 


46 2 


55 8 


67 STO 06 


79 24 


91 EHTERt 



76 



MICRO SISTEMAS. fev*r«iro/84 





119 Xt2- 


146 "HX=* 


128 * 


147 ARCL X 


121 STO 15 


148 AVIFH 


122 RCL 03 


149 STOP 


123 PCL 02 


1504LBL B 


124 * 


151 PCL 15 


125 RCL 80 


152 RCL 12 


126 * 


153 / 


127 STO 16 


154 -BY*-* 


128 RCL 03 


155 ARCL X 


129 RCL 02 


156 QVIEH 


130 * 


157 STO? 


131 CHS 


1584LBL C 


132 RCl 03 


159 SF 25 


133 ♦ 


168 RCL 15 


134 RCL 17 


161 RCL 13 


135 * 


162 / 


136 STO 18 


163 CHS 


137 SF 27 


164 ‘NX=“ 


138 8 


165 ARCL X 


139 ENG 3 


166 AVIEH 


148 TONE 8 


167 CF 25 


141 STOP 


168 STOP 


142HBL ft 


1694LBL D 


143 RCL 15 


178 SF 25 


144 RCL 11 


171 RCL 15 


145 / 


172 RCL 14 



173 / 

174 CHS 

175 -HY=’ 

176 HPCL X 

177 AVIEH 

178 CF 25 
178 STOP 
188+LBL E 

181 "LY=* 

182 APCL 17 

183 QVIEH 

184 PSE 

185 *LX=* 

186 ARCL 88 

187 AVIEH 

188 PSE 

189 -P=- 

190 ARCL 03 

191 AVIEH 

192 PSE 

193 ‘CASO • 

194 ARCL 0' 

195 AVIEH 

196 STOP 
1974LBL F 

198 FS? 01 

199 GTO 15 



280 5 


2274LBL 17 


281 STO 05 


228 ,6 


282 GTO 16 


229 STO 05 


203HBL 15 


230 ,4 


204 ,6 


231 ♦LBL 18 


285 STO 85 


232 RCL 18 


206 ,4 


233 • 


2074LBL’ 16 


234 *RY1^ 


288 RCL 16 


235 ARCL X 


289 * 


236 AVIEH 


210 "RXl-“ 


237 STOP 


211 ARCL X 


238 RCL 18 


212 AVIEH 


239 RCL 05 


213 STOP 


240 * 


214 RCL 16 


241 -RY2=- 


215 RCL 05 


242 ARCL X 


216 * . 


243 AVIEH 


217 ‘RX2=‘ 


244 STOP 


218 ARCL X 


2454LBL 08 


219 AVIEH 


246 RCL 06 


228 STOP 


247 RCL 02 


22ULBL G 


248 28 


222 FS? 03 


249 * 


223 GTO 17 


258 3 


224 ,5 


251 / 


225 STO 85 


252 RCL 06 


226 GTO 18 


253 / 



254 RCL 01 
25?/ 

256 CHS 

257 1 

258 ♦ 

259 PCL 02 

260 * 

261 / 

262 STO 11 

263 RTN 
264iLBL 09 

265 RCL 07 

266 RCL 02 

267 CHS 

268 1 
269 ♦ 

278 20 
271 * 

27? RCL ei 

273 * 

274 3 

275 / 

276 RCL 07 

277 / 

278 CHS 

279 1 
288 ♦ 



281 RCL 02 

282 CHS 

283 1 

284 + 

285 * 

286 RCL 01 

287 * 

288 / 

289 STO 12 
298 RTN 
29J+LBL 10 

292 RCL 88 

293 RCL 02 

294 / 

295 STO 13 

296 RTN 
297#LBL 11 

298 RCL 09 

299 RCL 02 
388 CHS 

301 1 

302 ♦ 

383 / 

384 RCL 81 

385 / 

386 STO 14 
367 END - 



A Nasajon Sistemas lanca um novo conceito 
para agilizar a sua empresa : 



A PRESSA E AMIGA DA PERFEICAO 



A Nasajon Sistemas esta lanqando no mercado 



Program* 


Fita <Cr$) 


Diskette (Cr$) 


Contabilidade 


40.000,00 


239.000.00 


Controle de Estoque 


64.000,00 


188.000,00 


Mala Oireta 


47.000,00 


109000,00 


Mala Oireta cl Ed. Texto 


— 


194.000,00 


Contas a pagar/receber 


47.000,00 


116.000,00 


Tesouraria (C. Saldo banc4rio) 


— 


116.000.00 


Crediirio (p / D 8002) 


— 


129.000,00 


Admin, de Imoveis 


— 


430.000,00 


Editor de Texto 


36.000,00 


_ 


Arquivo de Processos 


24.000,00 


_ 


Controle de Livros 


19.000,00 


— 


Controle de Cheques 


19.000,00 


— 


Biorritimo 


16.000,00 


26.000.00 


Decisao 


17.000,00 


27.000.00 


Obstdculo 


17.000,00 


27.000,00 


Kit Matematic. c/6 progr. 


62.000.00 


72.000,00 


Jogos Americ. (Fita c/4) 


25.000.00 


35.000,00 



Voc€ tarn be m encontra esses prog ra mas 
em nossos revendedores credenciados. 



uma s^rie de programas especi'ficos que podem dinamizar 
ainda mais as diversas 2reas de sua empresa. 

Sao mais de 50 programas diferentes para DGT 1000, 

CP 500, D 8002, TRS 80, NAJA, JR e outros. 

Com os programas da Nasajon Sistemas voce vera porque a 
pressa 6 amiga da perfeipao. 

Nasajon Sistemas: 

Um jeito f4cil de resolver os problemas de seu computador. 

• Desenvolvemos qualquer tipo de software de acordo 
com as necessidades de sua empresa. 

• Antes de comprar seu computador solicite 

nossa assessoria, sem compromisso, ^0*^0* ’ 

para andlise, implantagao e apoio. 

• Descontos para revenda. 



Atendimento por reembolso 
para todo Brasil. 



?' 6 






ft no/ojon 

k d /i/tema/ * 



Av. Rio Branco, 45 gr. 1311 CEP 20090 
Tel. (021) 263.1241 - R.ode Janeiro 





Curso de 
Assembler - XIII 




D ando seqiiencia a ultima li^ao, vamos discutir as ou- 
tras alternativas que o microprocessador Z80 nos oferece para 
desviarmos o fluxo de urn programa. Espero que a$ instrusdes 
de JUMP descntas na h$ao anterior tenham sido compreendi- 
das perfeitamente, pois este capitulo 6 essencial para a elabo- 
rate de qualquer programa em Assembler. Vamos ent5o co- 
nhecer as instrusdes reservadas para esta U^ao. 

3 - Desvio Relativo Incondicional 
Formato: JR e 

Operando: Efetua um desvio do fluxo de processamento para a 
posi^ao de memdna dada pelo conteudo do Program Counter 
(PC) acrescido do operando e exph'cito na mstruto. na forma 
de compolemento de 2. 



PC+e 



I — ► des locamento 



cessador ajusta automaticamente o conteudo do PC. A grande 
utilidade desta lnstru^ao 6 para o desenvolvimento de progra- 
mas relocdveis, isto 6, programas que podem ser executados 
em qualquer local de memdria, visto que os desvios sio rela- 
tivos a uma posi^ao base. 

Gclos de maquina (M): 3 
States (T): 12(4, 3, 5) 

Flags afetadas: Nenhuma 
Exemplo: 

OOIOO 1 TESTE DA INSTRUCAO DE DESVIO RELATIVO 



IOOO 




OOllO 


ORG 


1000H 


iOOO 


1803 


00120 DESV1 


JR 


DESV2 


1002 


3E04 


00130 


LD 


A, 04 


1004 


AF 


00140 


XOR 


A 


1005 


18F9 


OO ISO DESV2 


JR 


DESV1 


OOOO 




00160 


END 





OOOOO TOTAL ERRORS 

34940 TEXT AREA BYTES LEFT 



■ ►Program Counter 



Codigo Objeto: 




Exemplo: 




Como podemos observar no exemplo acima, quando dese- 
jamos realizar um desvio positive, indicamos o numero de by- 
tes que queremos saltar, sem contar os bytes da mstru^o JR. 
Para o desvio negative, indicamos o numero de bytes que dese- 
jamos saltar na forma de complemento de 2, considerando a 
mstru^o JR e os bytes da mstru^o que desejamos executar 
apos o desvio. 

Bytes a saltar. 07H -*0000 0111 
Complemento de 1 : F8H -*1111 1000 
Complemento de 2. F9H -* 1 1 1 1 1001 
4 - Desvio Relativo Condicional 
Formato JR cc, e 

Operaqao: Efetua um desvio do fluxo de processamento para a 
posi^So de memdria dada pelo PC, acrescido do operando e 
expresso na forma de complemento de 2, somente se a condi- 
9S0 cc for verdadeira. Caso contrdrio, ignora a instru^o e con- 
tinua no fluxo normal do programa. 

Codigo Objeto: 



Descrigao: Esta mstru^ao executa um desvio incondicional 
para outro segmento do programa. O valor do deslocamento e 
6 somado ao Program Counter (PC) e a prdxima mstru^o 
executada pelo microprocessador se encontra na nova POS19S0 
de memdna apontada pelo PC. Esta mstru^o de desvio pode 
ser feita em um intei valo de —126 a +129 bytes. O micropro- 
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onde cc ldentifica a condi^ao da flag a ser tratada Se a 
condi 9 ao for verdadeira, ou seja se a flag estiver na condi- 
9 ao desejada. o desvio 6 realizado. 

100 para cc = flag NZ (Z=0) 

101 para cc = flag Z (Z=1) 

110 para cc = flag NC (00) 

111 para cc = flag C (0=1 ) 

Como podemos observar, a instruct) JR s 6 nos permite tes- 
tar as conduces das flags Zero e Carry. 

Exemplo: 



JR MZ,05H 



0 0 1 0 0 0 0 0 
0 0 0 0 0 1 0 1 




Descrifdo: Esta instru^o executa urn desvio condicional para 
outro segmento do programa, isto 6, o desvio s 6 6 realizado se 
a condi^So flag testada for verdadeira. 0 valor do deslocamen- 
to e i somado ao PC, e a prdxima mstru^So executada pelo 
microprocessador se encontra na posi^o de memdria apontada 
pelo PC. O numero de bytes que podem ser somados ao PC en- 
contra-se no intervalo de — 126 a + 129 bytes. O microproces- 
sador ajusta automaticamente o conteudo do PC durante a 
execu^ao da mstru^o JR. Se di flag testada nao estiver na con- 
di 9 ao desejada, a instru 9§6 6 ignorada pelo microprocessador e 
a execu 9 ao do programa continua normalmente. 





Ciclos de maquina (M) 


States (T) 


Se a ccndigao 






for verdadeira 


3 


12(4,3,5) 


Se a ccndigao 






far falsa 


2 


7(4,3) 



Flags afetadas: Nenhuma 
Exemplo: 



1000 

1000 B7 

1001 2930 
1003 3860 
1005 C30Q40 
OOOO 



OOIOO I TESTE DA INST RUC AO 
OOUO ORG 

00120 OR 

00130 JR 

00140 JR 

00130 JR 

00160 END 



OOOOO TOTAL ERRORS 
34841 TEXT AREA BVTES LEFT 



JR" CONDICIONAL 

IOOOH 

A I POSICIONA AS FLAGS 

Z, •♦32M I TESTA SE 2-1 

C,«*62H | TESTA SE C-l 

4000M I SENAO CONTINUA EXECUCAO 



Como podemos observar, quando utilizamos um montador 
Assembler devemos considerar tamb 6 m os bytes utilizados 
pela mstru 9 ao JR, pois o montador ui descontar os dois bytes 
da mstru 9 ao. 

5 - Desvio Indexado por HL 

Formato: JP (HL) 

Opera^do: Desvia o fluxo do processamento para o endere 90 
contido no par de registradores HL. 

Codigo Objeto: 

JP (HL) 



1110 10 0 1 



E9 



Descrifdo : 0 Program Counter (PC) 6 carregado com o conteu- 
do do par de registradores HL de 16 bits. A prdxima instru 9 ao 
executada pelo microprocessador se encontra no endere 90 




distribuidor autorizado 




SUPRIMENTOS P/ PROCESSAMENTO DE DADOS 



• FIT AS MAGNfiTICAS 

• DISCOS MAGNfiTICOS 

• D1SKETES (8 e 5 1/4) ORIGINAIS 

• FIT AS IMPRESSORAS ORIGINAIS BSBE# 

• FIT AS IMPRESSORAS NACIONAIS E IMPORT. 

• DATA CARTRIDGE 

• ACESS0RIOS ( ETIQUETAS, TAPE SEEL, 

WRAP AROUND, CARRETfilS, REFLETIVOS) 

• FORMULARIOS C0NT1KU0S 

CPD - COMERCIO e representaqOes ltda 



Sao Paulo 

Rua Ministro Gabriel de Resende fcissos, 382 - CEP 04.521 
Fones: (Oil) 571-0688/571-3440/572-1811 

Rio de Janeiro 

Rua Tenente Vilas Boas, 21 - CEP 20.260 Fone: (021) 284.1938 
Joinville - Santa Catarina 
Rua Aracua, 98 - CEP 89.200 
Baixada Santista 

Av. Dr. Adhemar de Barros, 2034 - CEP 1 1 .400 
Fone: (0132) 86-2589 
Bek) Horizonte - Minas Gerais 
Rua Jaguara, 22/A - CEP 30.000 Fone: (031) 444.4905 
Bairro Renascen^a 
Brasilia - Distrito Federal 

Conj. Nacional Brasilia 6° andar - s/6075 - CEP 70.000 
Fones: (061) 225-6988/223-6785 

Olinda - Pernambuco 

Av. Mario Melo, 86 Loja 4 - CEP 50.000 Fone: (081) 221-0588 

Londrina - Parana 

Rua Quintino Bocaiuva, 666 - 2? andar - s/ 201/A - CEP 86.100 
Fone: (0432) 22-4858 
Porto Alegre - Rio Grande do Sul 

Rua General Caldwell, 1329 - CEP 90.000 Fone: (0512) 23-1132 



Uniao de recursos e talentos a servipo 
de sua empresa. 

v y 
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CURSO DE ASSEMBLER - XIII 



contido em HL, que, ap6s a mstru^o JP (HL), tamWm estarf 
contido no PC. 

PC«- (HL) 



Gclos de mdquina (M): 1 
States ( T ): 4 

Flags afetadas Nenhuma 
Exemplo: 







OOIOO ■ TESTE 


DA INSTRUCAO JP (ML > 


3200 




00110 


ORO 


3200M 




3200 


87 


00120 


ADD 


A, A 


•A - A • 2 


3201 


210DS2 


00130 


LD 


HL, TABLE 


1 ML • ENDERE CO DA TABELA 


3204 


1600 


00140 


LD 


D.O 


ID - 0 


3206 


3F 


00130 


LD 


E, A 


IE - A • 2 


3207 


19 


00160 


ADD 


ML . DE 


•HL - ENDERECO NA TABELA 


3208 


3E 


00170 


LD 


E. ‘ML) 


IE • LSB DO ENDERECO 


3209 


23 


00180 


INC 


HL 


IN. - PROXIMO BYTE 


320A 


36 


00190 


LD 


0. (ML) 


ID - MSB DO ENDERECO 


S20B 


EB . 


00200 


EX 


DE.ML 


IN. • ENDERECO DO DESVIO 


52 OC 


E9 


00210 


JP 


(HL) 


1 DESVIA PARA 0 ENDERECO 


3200 


oooo 


00220 TABLE 


DEFN 


OOOOM | 


ENTRADA - TABLE ♦ A • 2 (A-Ol 


320F 


3300 


00230 


DEFN 


0033H • 


ENTRADA • TABLE ♦ A • 2 (A-l) 


3211 


4900 


00240 


DEFW 


0O49M 1 


ENTRADA - TABLE ♦ A • 2 (A-21 


3213 


A 7 28 


00230 


DEFM 


28A7H | 


ENTRADA - TABLE * A • 2 (A-3> 






00260 • 


END 







OOOOO TOTAL ERRORS 

34504 TEXT AREA BYTES LEFT 



Neste exemplo, podemos observar como utilizar a instru^o 
JP (HL) para efetuar desvios contidos em uma tabela de 
JUMPS. Para utilizar esta rotina, colocamos no acumulador a 
op^Jo desejada no intervalo entre 0 e 3. A rotina calcula o 
endere^o, multiplicando o conteudo de A por 2 que, somado 
ao conteudo de HL (que conrfm o ponto de entrada da tabe- 
la), determina o ponto de entrada na tabela que conrfm o 
endere 90 para o JUMP. Se A= 2, vamos obter o seguinte resul- 
tado: HL « 520D H + 4 - 5211 H. 

Este endere?© na tabela conrfm o endere 90 desejado para o 
JUMP no caso da op 9 ao A - 2. 

6 - Desvio Indexado por 1X/IY 
Forma to JP (IX) 

JP (IY) 

Operagao: Desvia o fluxo do processamento para o endere 90 
contido nos registradores mdexadores IX ou IY. 

Codigo Objeto: 



JP 




1 1 IR 1 1 1 0 1 

t — > 

111 01001 



E9 



onde IR identifica os registradores indexadores IX, IY, monta- 
dos a partir da seguinte tabela: 

0 para registrador IX 1 para registrador IY 
Exemplo: 

JP (IX) 



I 'I 1 T r r ?■ 

110 1 11 0 1 — ► DD 
1110 10 0 1 — >E9 

ii i ..I ii i l 

Descrigao: 0 Program Counter (PC) 6 carregado com o conteu- 
do dos pares de registradores IX ou IY. A prdxima mstru^o 
executada pelo microprocessador encontra-se no endere 90 de 
memdna contido no par de registradores mdexados IX ou IY. 
PC 4- (IX) 

PC (IY) 



Gclos de mdquina (M): 2 
States (T): 8(4, 4) 

Flags afetadas: Nenhuma 

Exemplo: Se o conteudo do PC 6 1000H e o conteudo do par 
de registradores EX i 4800 H, apos a execu 9 ao da instru 9 So 
JP (IX), o conteudo do PC serf 4800 H. 



7 - Decrementa e salta se diferente de zero 
Formato: DJNZ e 

Operagdo: Decrementa o conteudo do registrador B e, se o seu 
conteudo for diferente de zero, efetua um desvio relativo. 
Codigo Objeto: 



Exemplo: 



DJNZ e 



o 

o 

o 


1 1 1 1 1 

1 0 0 0 0 




- A k 




e w 




10 



DJNZ $ - 10 H 


L 


0 0 0 1 0 0 0 0 


1110 1110 




Descrigao: Esta instru 9 ao 6 similar a um desvio relativo condi- 
cional, exceto que o conteudo do registrador B determina o 
desvio. O registrador B 6 decrementado e, se o seu conteudo t 
diferente de zero, o operando e, na forma de complemento de 
2, 6 somado ao Program Counter (PC). O desvio deve estar no 
intervalo de -126 a +129 bytes. O microprocessador atualiza 
automaticamente o PC. Se o conteudo do registrador B 6 zero, 
ap6s ser decrementado, a instru 9 ao seguinte ao DJNZ serf exe- 
cutada. Esta instru 9 ao se assemelha ao la 90 FOR-NEXT da lin- 
guagem BASIC. As instru 90 es abaixo podem substituir um 
DJNZ. 

DEC B 

JR NZ, e 





Ciclos de Maquina (M) 


States (T) 


Se b ft 0 


3 


13(5,3,5) 


Se B = 0 


2 


8(5,3) 



Flags afetadas: Nenhuma 

Exemplo: A rotina abaixo transfere 128 bytes de um buffer de 
entrada para um buffer de trabalho. Esta rotina transfere os 
128 bytes ou arf encontrar um Carriage Return (Enter). 







OOIOO 1 TESTE 


DA INSTRUCAO DJNZ 


FOOO 




OOllO BUFIN 


EOU 


OFOOOM 


FlOO 




00120 BUFOUT 


EOU 


OF100M 


lOOO 




00130 


ORG 


lOOOM 


iooo 


0680 


00140 


LD 


B.80H 


1002 


21O0F0 


00130 


LD 


HL, BUFIN 


1003 


1100F1 


00160 


LO 


DC, BUFOUT 


1008 


7E 


00170 LOOP 


LD 


A, (HL) 


1009 


12 


00180 


LD 


(OCl.A 


10OA 


FEOD 


00190 


CP 


ODH 


lOOC 


2804 


00200 


JR 


Z.FIN 


loot 


23 


00210 


INC 


HL 


1O0F 


IS 


00220 


INC 


DE 


1010 


I0F6 


00230 


DJNZ 


LOOP 


1012 


3AOO40 


00240 F1H 


LD 


A. (4000M) 


OOOO 




00230 


END 




OOOOO TOTAL 


ERRORS 






34386 TEXT 


AREA BYTES LEFT 







I SETA CONTADOf* 

IH. <- BUFFER DE OR I GEM 
I DE <- BUFFER DE DEBT 1 NO 
•A <- (BUFIN) 

I (BUFOUT) <- A 
•TESTA SE A - ‘ ENTER" 

•SE A - OD ENTAO F |h 
•INCRENENTA (BUFIN) 

I INCREMENT A (BUFOUT) 
•RERETE 128 VEZES 
•CONTINUA EXECUCAO 



Neste ponto voces jd conhecem um repertdrio de instates 
que permitem efetuar alguns programas em Assembler. Vamos 
entSo criar os primeiros programas e enviar para a MICRO 
SISTEMAS. Terei prazer em anahrf-los. ■ 



Amaury Correa de Almeida Moraes Junior 6 for mad o pelo curto de 
Analise de Sistemas de FASP. tendo feito di versos cursot de aperieigoa 
mento nas Areas de Eletrdnica Digital e Microprocessadores. e atualmen- 
te trabalha na Area de microcomputadoret para City bank. 
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EscoUn o seu propma para hofe. 



Par fait a de programas. 
dificilmente uni Unitron ap II vaificar 
parado. E para voce ter tint a ideia do 
que ele pode fazer em sua casa, 
empresa ou escritorio, vamos Id: 

• rcdigir textos • relatonos administra- 
tivos • graficos coloridos • atualizar 
agendas • contas a pagar/receber* 
contabilidade • folhas de pagamento* 
cadastrar dientes e forneccdores • 
budgets’ • administrar varejo • mala 
direta • analisar investimentos •xadrez, 
e outros jogos inteligentes • correio 
eletronico • banco de dados • analisar 
pesquisas • estatistica • marketing de 
negocios • teste de hipoteses • acessar 



redes de computadores • horoscopo e 
cartas astrologicas •controlar sistema de 
alarmc • controlar tempos c metodos • 
programa$5o “basic' • esquematizar 
marketing direto • atualizar arquivos 
escolares (colegios.faculdades) • 
administrar escolas • aprender com 
computador (como usar o computador 
em seu benef icio) • treinamento 
intensivo (vendedores, compradores) 
simular situa^des • jogos educacionais 
• administrar bens e propriedades • 
controlar linhas de produt;ao* catalogar 
bibliotecas • imposto de renda (como 
preparar a declara<,ao) • sistematizar 
constru^des e obras • estattsticas 



• calculos de engenharia estrutural • 
administrar consultorios • operar bolsa 
de valores* analisar diagnostics medi- 
cos • arquivodc agenda de turismo • 
controlar transport adoras • gerenciar 
investimentos • inventarios • sistemas 
de amortiza$ao • arquivo de receitas 
culinarias • calculo do I PI, ICM e 
outros • administrate domestica • 
fazer duas coisas ao mesmo tempo. 

Eslas sdo algumas das aphea^oes que o 
U nitron ap II pode ter para voce. Mas: 
se voce quiser inventar mats alguma , 
pode ter certeza que ele topa. 



0 Unitron ap II topa qualquei um. 




S*» Noto - Atfd.o -T.l 780-0671 



T#l. 7104)187 



7*1 876-1499- eJtuijo-T«l 270-7566- Foto l.o-T.1: 37-2702 



-FK-T.I 770-061 1-teor6i-T.I 61 0946 - Morno* - T.I 814-0682 - Mopp.« - T.l 75 
P'6 ElMrOwco - T»l 771-7137- Socto - TM 814-0598 - S»hvv« -T. l 773 1511 - W - 
-T.I (01W37 2786 Kite**. Two - F oWp^co - T.I (0166)636 0666 - Monte -Spro ( 
399 6330 - Clappy - T.l (021) 253-31 70 - Compom.cro - T.I (071 1 774-7007 - Complete 
Conteo-Cowro-TM 1041) 724-5616 - Comput>pu«-T«l i 041) 243-1731 - Lon6rmo - ( 
326 931 8 - So*. tea. Oftctmo - T«l (071 1 748-6666 - S-tdo>o - T«J. (071) 242-9394 - 8Mo 



>no M-c'o Informoheo - T.I 282-6440- Procdo- T.l 545 5498- 
au«-Td (01 92) 32-381 0-FpiopMo-T.I (0)97) 57-0744 -Omn. 



11)267-829) 



326 1 575 -NowEro-T .1 (081) 



031) 775-3305 - M.c-othop - T.I (031)772 7889 



T.l (0517)77 5061 -JowmlU- Cornier®- T.l 10474)330 



I Gostana de receber maiores informatics sobre os pro- 

I gramas da arcade: 

I Nome: 

I Empresa: Cargo: 

■ Endercto: • 

I Cidade: CEP: Tel: 

Unitron Eletr&mca - Caixa Postal 14.127 (CEP 02779) 

1^ SSo Paulo - SP - Telex (01 1 ) 32003 UEIC BR 










Pergunta — Tenho um TK85 com 48K.de 
RAM. Tudo corria bem, atd que resol - 
vi escrever um programa um pouco 
maior. Durante a digitagao, fiz o se- 
guinte teste: 

(CLEAR NEW LINE) 

PRINT PEEK 16404+256 *PEEK 164 
05-16509 (NEWLINE) 

Assim, poderia evitar que a memdria se 
"esgotasse". Em determinado momen- 
to, o teste indicou 16200 bytes ocupa- 
dos e, presumo, seriam estes somente 
os bytes gastos pelo programa e pelo 
display, jd que, antes do teste, acio- 
nei CLEAR. 

Fui inserindo mais algumas linhas 
no programa atd que o computador 
"saiu do ar": algumas faixas comega- 
ram a rodar pela tela da TV, e somente 
apds desligd-lo 6 que tudo voltou ao 
normal. 

Se eu nao der CLEAR antes do tes- 
te, de acordo com a dimensao que eu 
estabelecer, o resultado do teste pode 
chegar atd 48 K. A partir daf, o micro 
comega a se comportar como estd des- 
crito no capftulo 23 do manual 
("quando a memdria fica repleta") e 
nao 6 mais possfvel inserir linhas, mas 
o programa nao 6 perdido. Basta dar 
um CLEAR, diminuir a dimensSo e, 
tudo bem, 6 sd continuar. 

Ja escrevi a Microdigital pedindo es- 
clarecimentos e atd agora nSo recebi 
resposta. Por isso, resolvi recorrer a vo- 
cds. Minhas duvidas sao as seguintes: 
1—0 que estd acontecendo com o 
meu TK85 com 48 K? 

2 - Por que nao consigo usar mais do 
que 16200 bytes no meu programa em 
BASIC? 

3 — Essa limitagao 6 real ou pode tra- 
tar-se de algum defeito no micro? 

4 — Se essa limitagao existe, qua! a 
vantage m em se possuir um micro com 
48 K "disponfveis'7 (Marcos A. Fer- 
reira da Silva, SP) 

MICRO SISTEMAS— Isso nao e' defeito 
do seu equipamento. 0 que acontece 6 
que a memdria do seu micro se organi- 
za como mostra a Figura 1. E, qual- 
quer que seja a expansao, o mdximo 
aproveit£vel em seus programas ser3 48 
K. A utilizapao da RAM se inicia no 
enderepo 16384 (leia o artigo "Peque- 
nas memdrias, grandes economias", 



publicado em MS n9 22) e pode che- 
gar, no mdximo, ao enderepo 65536. 

0 arquivo de imagens fica "passean- 
do" pela RAM na medida em que voce 
vai escrevendo seus programas, mas 
este nunca poderti estar com uma par- 
te antes do enderepo 32768 e outra 
depois. Assim, quando voce \& tiver 
usado aproximadamente 15 K, voce 
deve forpar o arquivo a ultrapassar essa 
barreira, criando uma linha que gaste 
bastante espapo (por exemplo: LET 
A = 1+1+1+1+1...) e editd-la no modo 
FAST. 

Nao se esquepa de que o arquivo 
de imagens deve ultrapassar integral- 
mente o enderepo 32768. E 6 bom gra- 
var o programa antes de tentar isso, 
para evitar surpresas depois. 




Figure 1 



Pergunta — Atravds de um amigo, fi- 
quei sabendo que era possfvel a utili- 
zagao das instrugoes READ e DATA 
no TK82-C, mas atd hoje nao consegui- 
mos introduzir estas instrugoes no mi- 
cro. Gostaria de saber se d possfvel e 
como introduzir tais instrugoes. (Luiz 
Wellington de S. Monteiro, PE) 

MICRO SISTEMAS - As instrupoes 
READ e DATA nao sao possfveis no 
TK82-C, pelo menos como instrupoes. 
£ possfvel, no entanto, criar uma roti- 
na que simule estas instrupoes. Leia a 
materia intitulada "DATA, READ e 
RESTORE no TK", publicada em MS 
n9 25, edipao de outubro/83. 

Pergunta — Sou possuidor de um mi- 
cro NE-Z80, o "retardado" da famflia 
dos pessoais. Gostaria de saber o que d 
possfvel fazer para contornar, ou pelo 
menos atenuar, as irritantes limitagdes 
do modelo, qua is sejam: a inexistdncia 
de casas dec i mais, baixfssimo I i mite de 
sobrecarga (overflow), nao reconheci- 
mento de diversas instrugoes vitais da 
linguagem BASIC etc. Uma expansao 
resol veria? Pode um programa execu- 



Envie suas perguntas para MICRO 
SISTEMAS (Seoao MS 
RESPONDE); Rua Visconde 
Silva, 25, Botafogo, Rio de 
Janeiro-RJ. CEP 22281. 



tado no NE-Z80 ser transferido via fi- 
ta magndtica para outro micro, como o 
NE-Z8000 ou o TK82-C? (Edgar San- 
tos Rocha, RJ) 

MICRO SISTEMAS - Nao, um progra- 
ma gravado pelo NE-Z80 nao pode ser 
transferido para o NE-Z8000 ou para o 
TK82-C. 

Quanto ao "retardado", nao se de- 
sespere, pois todo micro 6 retardado 
em algum aspecto. Se, por um lado, o 
NE-Z80 6 limitado em comandos e ins- 
trupoes, por outro ele d o mais r«ipido 
de sua categoria, e o que gasta menos 
memdria com o armazenamento de 
programas. 

Para contornar a falta de certas ins- 
trupoes ser3 preciso lanpar mao de cer- 
tas sub-rotinas. Por isso, maos & obra e 
ligue a sua criatividade, que todas as 
limitapoes do micro podem ser supera- 
das. 

Pergunta — Tenho um tiE-Z8000 que 
nao possui a fungao SLOW. Fiz o 
seguinte programa: 

10 POKE 16100,1 
20 PRINT 'AAAAAAAAA " 

30 PAUSE 1000 
40 RUN 

Executando este programa, a tela fi- 
cou cheia. Depois apertei CONT e EN- 
TER e, quando a tela ficou cheia, aper- 
tei ENTER. Apds alguns segundos de 
tela dnzenta, a pa re ceram caracteres 
movendo-se em SLOW. Hd varios pro- 
gramas em que isto ocorre. Gostaria de 
saber por que isto ocorre, pois algu- 
mas vezes, muito raramente, os carac- 
teres nSo se movem. (Osvaldo Luiz 
Ayala Fernandes, SP) 

MICRO SISTEMAS - Se o seu compu- 
tador tiver 1 ou 2 K de RAM, o que 
aconteceu 6 muito simples: estourou a 
memdria. Mas nSo se assuste, porque 
isto nao 6 grave,- basta desligar o mi- 
cro que ele volta a funcionar tranquila- 
mente. 

Isto acontece porque o POKE pas- 
seia pelo arquivo de imagens e vai aca- 
bar no STACK, o que certamente con- 
funde o micro. £ apenas uma das inu- 
meras coisas que podem acontecer em 
caso de memdria lotada, mas nenhu- 
ma delas provocar£ sgrios danos ao seu 
equipamento. 
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A geracao definitive 6 sempre a proxima. 




AV. PACAEMBU, 788 
CEP 01155 - TEL: 67.5900 



Voc§ s6 descobre o quanto precisa de um Micro-Corn 
putador JR da Sysdata depois que o conhece de perto. 

Voc6 vai ter certeza de que fez um 6timo negdcio ao 
adquirl-lo assim que o colocar na sua empresa ou na sua 
casa. 

0 JR da Sysdata 6 rSpido, 6 versdtil, 6 compacto. 

APLICAQOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatdrio de clientes. mala direta, 
c^lculos de orpamentos financeiros.controle de processos 
industrials, cdlculos de engenharia, cdlculos de estatisti- 
cas, funpbes matem^ticas, funpbes Ibgicas em cadeia de 
caracteres (STRINGS), grdficos, jogos animados. progra- 
mas educacionais. 

O JR PERMITE AINDA: 

0 acesso a grandes sistemas de computapao, a comuni- 
capao entre os departamentos de Empresa, efetuar pro- 
gramas especfficos para cada Empresa. 

E, como se n§o bastasse, ele 6 o Micro-Computador de 
manor prepo do mercado. 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tao econbmico. Mas 6. 

Afinal, ele 6 o mais completo Micro-Computador de sua 
gerapao. 

Inclusive no prepo. 

Voc6 pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 



VO? 



twy^uauua 



REVENDEDORES: SAO PAULO/Capital Ad Data 864.8200; ADP System 227.6100; Bucket 881.7995: Cmot.ca 36 6961; Compumarketing 212.9004; Compute 852 8533 Com 
Pu,e :'f^ 3277; Fo, ° id® 36.7131; Fotdtica 853 0448; Guedes 289 9051; Horst 203 5597; Interface 852.5603; Lema 210 5929. Microrei 881 0022. Miprotec 289 4941 Nova Gera 
C *0 814 3663; O.PA 36.8685; Plandata 275.0181; Plante! 543 9653; Sacco 814 0598, Servimec 222 1511; Sistenac 282 6609: S O S. 66.7656; Runner's 469 0887 Campinas 
Computer House 852 5 85 5; Computique 32.6322; Microtok 32 4445; Rio Claro - Coml. Micro Cosmos 34 5801; Ribeirio Preto Comousys 635 1195 Araras - Copec 41 3779 

Guacumaq261 .0236; Braganca Paulista Infordata 543.5198 Bauru; Marilia Sipro 33.4109 Catanduva Teledalto 22.8119; RIO 
DE E 228 07341 Computique 267. 1093; G D M Informitica 284.8744. JR de Goes 246 4180; Kristian 391 3165; Suprimento 274 8845; Petrdpolis Foto Oti 

ca 42 _1 39 V NAS GERAIS Belo Horizonte Compucity 226.6336; Computec 225.2617; Kemitron 225.0644; Minas Digital 337.7946; Po^os de Cakias Computique 721 5810 

SUL/PortO Alegre Advancing 26.1194; Aplitec 24 0465; Digital 24.1411; Microsis 22.9782: Pelotas Sistemat.ka 22 3810; Novo Hamburgo Micromega 
X 3472 ] 1 ?£ R A NA/C . ur,l,ba Computique 243 1731; Micro System 232.3533. Morgen 232.0593 Ponta Grossa Grupo Data Memory 24.6191; Londrina Shop Computer 
23 9674; GOIAS/Goiama Casa do Microcomputador 223.1 165; Grupom 225 8226. SANTA CATARINA /Florianopolis Castro 22 6933 Infotec 23 4777 BRASILIA /Distrito 
Federal Compushow 273.2128. Digitec 225 4534; MATO GROSSO DO SUL/Campo Grande DRL 382 6487. Video 321 4220 CEARA/Fortaleza Siscomov 244 4691 
PARAIBA/Joao Pessoa Medusa 221 .6743: PERNAMBUCO/Recife Elogica241 1388 








Os micros da linha Sinclair estao saindo em campo para 
calcular glebas e terrenos com maior precisao 



Calculo da area 
de glebas 

Laci Mota Alves 



F ace ao vasto emprego da formula de Herao na resolu- 
gao de muitos problemas de topografia, e devido a 
acessibihdade do nucrocomputador nos dias atuais, 6 
que sc procurou elaborar esse programa, em BASIC, 
referente ao assunto. Atraves dele, sera possivel calcular a area 
de um tnangulo qualquer, dados seus tres lados, a area de uma 
gleba e ainda a area de desenho e/ou de terreno. 

£ muito comum no meio rural a necessidade de se medi- 
reni glebas que foram aradas, gradeadas, sulcadas, plantadas, 
rogadas ou que receberam qualquer outro tipo de mecaniza- 
gao agricola. Como tais medidas destinam-se geralmente a 
efetuar o pagamento de servigos prestados, nao requerem a ela- 
boragffo de plantas e ncm compensam, economicamente. a 
utilizagao de ccrtos instrumentos. SSo mensuragocs efetuadas 
com trena e balizas. dividindo-se a gleba em triangulos e to- 
mando-se as jjimensSes de seus lados. Nessc caso, a area de 
cada tnangulo pode ser facilmcnte calculada pela fbrmula de 
Herao em que, sendo S = area, p = semiperimctro. a, b,c = la- 
dos do tnangulo. 1/2 = expoente, temos: 

1 /2 

S= ( p( p-a ) ( p-b) ( p-c) ) 

Muitas vczes solicita-se, no meio urbano. desenho e area de 
lotes bastante irrcgulares. Aplicando-se o mesmo proccsso de 
medigao, mas com maior rigorosidade, conscguem-se resulta- 
dos plcnamentc satisfat6nos. 

Vcjamos, entao, como utilizar o programa. 

Apos digita-lo no scu micro, pressione a tccla RUN. A se- 
guir, fornega o numero de triangulos de sua gleba, solicitado 
pelo programa. bem como o denominador da escala ou zero, se 
ela nao cxistir. A partir dai, atenda as demais solicitagoes do 
programa, de acordo com os dados que voce ja introduziu. 
Para calculo de outra gleba, pressione novamente a tecla RUN. 



Laci Mota Alves 6 engenheiro florestal formado em 1973 pela Universi- 
dade Federal de ViQosa - MG. £ pdsgraduado em Cidncia Florestal e 
leciona atualmente Topografia e Fotogrametria na Escola Superior de 
Agronomia de ParaguaQu Paulista - ESAPP. Aldm disso. presta servi- 
ces autdnomos de Topografia, Conservacao do Solo e outros de Enge- 
nharia Florestal desde 1975. 





Herao 


10 


REM "HERAO" 




20 


DIM L ( 3) 




30 


LET S=0 




40 


PRINT "DIGITE 0 NUMERO DE 


T 


RIANGULOS DESUA AREA" 




50 


INPUT N 




60 


CLS 




70 


PRINT "DIGITE DENOMINADOR 


E 


SCALA OU " " 0 " " SE NAO EXISTE" 




71 


INPUT D 




72 


CLS 




80 


FOR J=1 TO N 




90 


PRINT "DIGITE OS LADOS DO 


T 


RIANGULO " ;J 




110 


FOR 1=1 TO 3 




120 


INPUT L ( I ) 




130 


PRINT " L ( " ; I ; " ) = " ; L ( I ) 




140 


NEXT I 




150 


LET P=(L(1)+L(2)+L(3) )/2 




160 


LET SP=SQR (P* (P-L(l) ) * (P- 


-L 


(2)) 


k (P-L ( 3) ) ) 




170 


PRINT "AREA=";SP 




180 


IF D>0 THEN PRINT "AREA TER 


RENO= 


=" ; SP*D*D 




181 


PRINT 




190 


LET S=S+SP 




200 


NEXT J 




210 


PRINT 




220 


PRINT "AREA TOTAL=";S 




230 


IF D>0 THEN PRINT "AREA TOT 


. TERRENO=" ;S*D*D 
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GARANTA 
SUA MS 
TODO MES ! 



Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revista): 



profiuffo/cargo 

enderego para remessa 

cidade cep estado 

Assinatura anual 

□ Micro Sistemas Cr$ 15.000.00 

□ Informatics & Administragao Cr$ 10.000.00 

□ Micro Sistemas+lnform3tica &Administragao. Cr$ 22.000.0 



Preencha um cheque nominal 3 ATI Editors Ltda e envie 
para: 

Rua Visconde Silva, 25 — Rio de Janeiro — RJ — CEP 
22281 - tel. (021 ) 286 1 797, 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva, 1227 — Sao P3ulo — SP — 
CEP 01441 - tel: (011)853-3800. 

Seu recibo sera enviado pelo correio. 



VOCE QUER SER 
COLABORADOR 
DE MICRO SISTEMAS? 



Para entrar nesse programs, & 
s6 seguir as instrugoes: 

• Escreva um texto datilogra- 
fado explicando qual a utiliza- 
giio do seu programs, e junte 
exemplos de aplicagSo. Aten- 
gio: 3 imprescindi'vel que a lis- 
tagem seja datilografada. Se 
for possivel mande tambirn, 
junto com a listagem datilo- 
grafada, uma fita cassete ou 
disquete com o programs; 

• Se for artigo, use a maqui- 
na de escrever em espago dois 
e meio, com setenta toques 
por linha e trinta linhas por fo- 
lha. Caso haja necessidade de 
desenhos e ilustragoes, deta- 
Ihe-os o mdximo possfvel; 

• Releia atentamente sua 
colaboragdo para micros ou 
calculadora, veja se n3o falta 
nenhuma informagSo (qual 
equipamento, em que configu- 
ragSo etc.), e remeta-a, em 
duas vias. para a equipe de 
MICRO SISTEMAS analisar; 

• Nao se esquega de mandar 
um breve curriculo, seu nome, 
telefone e enderepo completo. 




Envie para REDACAO — 
MICRO SISTEMAS, Rio ou 
SSo Paulo: Rua Visconde Sil- 
va. 25. Botafogo, CEP 22281, 
Rio de Janeiro - RJ; Alame- 
da Gabriel Monteiro da Silva, 
1227, Jardim Paulistano, CEP 
01441, S3o Paulo - SP. 

„_7Micro 

Sistemas 



VOL TE AS A ULAS COM MS! 

Em mar go. uma edigao especial sobre Educagao com varios 
programas para voce aprender coisas novas e praticar velhos 
conhecimentos! 



.RA/Z QUADRADA .H/STOGRAMA 
. ANIMALS , O INGLES DO MICRO 
. TUTOR MA TEMA TICO 
. APRENDENDO FRAQOES 



e outros tantos 
especialmente 
escritos para 
oseu micro. 

Aqui vai 
tambem uma 
palinha sobre os 
artigos: 



"A inicializagao 
do monitor 
do CP-500” e a 
segunda parte do 
artigo do prof. 
Antonio Costa, 
“Inteligencia 
Artificial", 



apresentando um 
jogo inteligente 
para a linha 
TRS-80. 



_. ./Micro 
Sistemas 
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JIM HORA DfOPTAR POR UM MICROCOMPUTADOR 



HMCOMOMHHOR : 




SOFTWARE 

500 PROGRAMAS DISPONIVEIS 

- Spetaculator (Vwcatc) 

— Telewriter 64 (Processador de textos) 

- Mbdico'Lebo 

(Controie de consultas e contabilidade 
simultaneamente) 

— Orpamento (Ideal para Engenheirosl 

— Envelope de pagamento 
(Calcula e imprime o envelope padrSo) 

— Contas a Pagar/Receber 

— Controie de Estoque 
(Acesso direto sobre cada item) 

- Topografia ICilculo poltgonall 

— Linguagem LOGO (para atanpasl 

— Composer (Transforma o CODIMEX 6809 
numa verdadeira orquestra). 

- Flex 

- Dtnacalc 

- Oinastar 

- Super Procolor File 

200 JOGOS, ENTRE ELES ZAXXON (TRIDIMENSIONAL). XADREZ. 
TRAP, KING. DONKEY. BOLICHE , CONBELT, GOBBLER (PACMANI, 
CORRIDA DE CAVALOS. SPACE ASSAULT... 

PERIFERICOS 




oimiimimmsam. 



Utilizando a mats moderna tecnologia existente no momento. a Codimex criou e 
estd produzindo um computador pnvilegiado Trata-se do CODIMEX 6809. compativel 
com o TRS 80 Color Computer, que gera ate 9 cores, possui recursos sonoros e opera 
com unidade de disco flexivel (5 1/4 ”) ou cassete 

O 6809 b extremamente versbtil em aplicacdes grbficas. capacitado a operar em alta 
ou baixa resolucSo e incorpora uma sbrie de mstrucdes inexistentes em outros 
computadores 

CODIMEX 6809 - vb conhece-lo nos principals revendedores. 



O computador CODIMEX 6809 possui duas entradas analogicas. portas 
para RS-232 e gravador cassete; saida de video, saida de expansdo As 
entradas analbgicas permitem a ligacdo direta de um par de "loysticks". 
que facilitam a introduqSo de dados grdficos e criam maior llexibilidade 
em logos Essas entradas podem ser usadas igualmente como converso- 
res analbgico digitais. A porta RS-232 torna possivel a conexdo da im- 
pressora ou modem. Os programas e dados s3o armazenados em fita 
cassete comum por mtermbdio da saida /gravador. 0 sinal de video b 
compativel com qualquer TV colorida ou P&B atravbs da antena A uni- 
dade de disco permite acesso rbpido a arquivos e programas. tornando a 
membna do computador virtualmente infinita. 



'%■ 



CODIMEX I 

computadores 

Importacio. Exportacbo e Indiistria de Computadores Ltda. 
Av. Wenceslau Escobar, 1549 - Vila Assunpflo • 

Telefone (0512) 496446 CEP 90.000 - Porto Alegre (RS) 
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NOVO CP 300 PROLOGICA. 



X 

a. 

3 . 







AW 

Manaus - 234-1045 
•BA-Salvador - 247-8951 
•CE-Fortaie/a 226-0871 • 244 -2448 
■Brasilia - 226-1523 ■ 225 4534 • ES Vila Veiha 
229-1387 Vitoria 222-5811 *GO-Goi4nia - 224-7098 • MI 
Cuiaba - 321-2307* MS-Campo Grande - 383-1270 - Dourados - 421-1052 
• MG-Beio Horizonte - 227-0881 - Betim - 531 -3806 - Cel Fabriciano - 841 -3400 - Juu 
de Fora - 212-9075 - Ubenindia - 235-1099* PA-Beiem - 228-0011 • PR-Cascavei • 23-1538 - Curi- 
tiba 224-5616 - 224-3422 - FwcJo Iguacu - 73-3734 - Londnna - 23-0065 • PE Recife - 221 -0142 • PI Teresma 
222 0186 • RJ Carnpos 22 3714 R.odeJaneiro 264 5797 - 253-3395 252-2050 • RN Natal 222 3212 • RS-Cax.as do 
Sut • 221-3516 Peiotas - 22-9918 - Porto Alegre 22-4800 - 24-0311 - Santa Rosa - 512-1399 •RO-Porto Veibo - 221 -2656 * SP SoRcite 
Barretos - 22-6411 - Campmas - 2-4483 Jund>ai - 434-0222 - Mar iia - 33-5099 - Mogi das Crures - 469-6640 - Pirac caba - 33-1470 - RibeirJo demotlltrtjto 

Preto - 625-5926 635-1195 Sio Joaquim da Barra - 728-2472 - S5o Jose dos Campos - 22-731 1 - 22-4740 - S4o Jose do Rio Preto - 32-2842 - Santos 33-2230 nos principals 

Sorocaba - 33-7794 • SC-Biumenau - 22-6277 - Cbapecb - 22-0001 - Cnouma - 33-2604 - Fionanopoiis - 22 9622 - Jomviie 33-7520 • SE-Aracaiu • 224-1310 magazines. 



0 pequeno 
grande micro. 



Agora, na hora de escolher entre um 
microcomputador pessoal simples, de facil 
manejo e um sofisticado microcomputador 
profissional, voce pode ficar com os dois. 

Porque chegou o novo CP 300 Prologica. 

0 novo CP 300 tern prego de 
microcomputador pequeno. Mas memoria 
de microcomputador grande. 

Ele jd nasceu com 64 
^ kbytes de memdria 
interna com 
possibilidade de 






Compativel com 
programas em fita 
cassete ou em disco. 



Pode ser 
acoplado a uma 
impressora. 



Permite 



Pode ser ligado 
a um televisor comum 
ou a um solisticado 
terminal de video. 



quase 1 megabyte. 

E tern um teclado profissional. 
que da ao CP 300 uma versatilidade incrivel. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. iiiiiii 



0 unico na sua faixa que jd 
nasce com 64 kbytes de memoria. 



Pode ser ligado ao seLraparelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa. 

Com o CP 300 voce pode 
fazer conexoes telefonicas 
para coleta de 
se utilizar 
de uma 
impressora 

e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 

expansao de memo- le ,“2!;f c a a 0 TRS-80 americano. E o que 6 melhor: 
ria externa para ate ' voce estara apto a operar qualquer 

outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 

CP 300 Prologica. 

Osoutrosnao fl « prolOGICA 

fazem 0 gue ele faz. A mK^ocomputadores 
pelo prego que ■■■ 
ele cobra. 



64 K 






A* Eng ; Lo'S Canos Benin. 1168 - SP 









mm 



Acfui voce tem a melhor 
iniciagao em 
microcomputagdo 
que existe. 



O TK 83 jd ensinou mo/s de 2 milhdes de pessoos 
Ele 6 multo fdcil de operor. Usa o Basic, e a memdria chega 
old 6 4 K bytes, e acelta monitor, impressora e joystick . 

Num instonte vocd vai estar resolvendo problemas 
programando, ou vencendo os muitos jogos dlsponfveis. O 
TK 83 nao 6 so a melhor iniciacdo Tambdm 6 a mais divertida 



Aqui voce ja aplica 
os seus conhecimentos 



Com o TK 85 vocd tambdm pode se divertir multo: ele 
tem dezenas de jogos disponlveis. 

Mas ele jd 6 mais sofisticodo. Tem software jd pronto 
Linguagens Basic e Assembler. Teclado tipo mdquina de 
escrever, com 40 feel as e I60fun$des. !6ou 48 K de 
memdria RAM, e 10 de ROM. Gray a$ao em high-speed, 
e fun^ao Verify, para maior seguran^a. 

Quando voed jd estiver apaixonado por 
microcomputoqao. ele vai corresponder totalmente 






Aqui voc§ mostra 
tudo o que sabe. 
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Microdigital Elotrdnlca Lida 
Co/jro Postal 54)21 - CEP 01000- 
S«o Paulo ■ SP ToIom n« (01 1) 37000 MIDE BR 



A vend a not boot rotot do romo lo)at etpeciolllodat do lotovideo tom • grand** mogonnet em AlAGOAS • Morel* Palmeiro dot Indiot AMAZONAS - Monoat BAHIA ■ Salvador CIA »A - Forlo 
Iota DISTBI TO SSDSBAl - Brasilia SSPlBITO SANTO ■ Vltbrlo. G OlAS - Golflnlc MATO GROSSO Cu.abd MINAS GSRAIS Bob Ho monte DlvInOpollt. Ito/ubo Juli de fora Pa cos de Coldot Sdo 
JoOo Del Rei. Todlll o Otoni Uberlbndlo Uberaba Vl(o to PA BAIBA - Comp.no G ronde PAR A - Bel* m FAB AN A - Curitiba londr.no MartngO FlfNAMBUCO - Recife. BIO Dl JANUBO Com po« Ni 
1*61 Novo Frlborg a Petrdpollt Friend* Bio dr Janeiro Vollo Redondo BIO GRAND t DO SUl Bog* Conooi Como* do Sul ljul Novo Homburgo Frlolot. Porto Alegre Son! Anno do Uvromen 
to Santiago Santa Rota Sdo Leopoldo BtO GRANDS DO NOB TS ■ Natal ROND&NIA - Porto Velho. SAO PAULO ■ Aroroquoro Atttt. Avar* Bouru. Btrigui Botucotu. Complnot. Catanduva Pronca. 
Guorulbot llu locoret Jou limo.ro tint. Monha Mogi Gl.o<u Mogt dot Cruiet Ourlnhot Pirocicobo Plrottunungo Prom.nBo R'O Ctoro RtbeirOo Proto Sontot Santo Barb dOette S$o Ber 
nordo do Corrpo SBo JoBo do Boa Vitto Sdo Sebt da Grama SBo Carlot . SBo Jot* do Rio Proto SBo Jot* dot Compoj Sf Andr* SBo Paulo Sorocoba Suiono TaubatR SANTA CATARINA ■ Blume- 
nou Brusque flormopoht I '0(01 Joinville SSBGIPi - A roca/u Se vocB nBo encontror otto equtpomento no tuo ctdode llgue paro (Oil) BOO • 255 8583 

— 
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O TK 2000 Color tem tudo que os 
melhores micros tdm. Menos o pre? o. 
Aceito diskette, Impressora (jd vem com 
interface), alto resolucao grdfica 6 cores 
podendo ser ligado ao seu TV colorido 
ou P&B Tem 64 k de memdria RAM e 
16 k de memdria ROM Com excelente 
software disponivel 

Voed poae mostrar tudo o que sabe. 
Sem precisor mostrar muito dlnheiro. 






